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Alfa 


sistemas 


Informática e Burótica, Lda. 

COMPUTADORES b 




memory 

SELECT 


2D48 CAIXA DE DISQUETES 5.25" 48 TPI MEMORY . 855$ * IVA 

2D485 CX. DE DISQUETES 5.25" 48 TPI DS/DD SELECT .2.051$ + IVA 

MF2SP CX. PLÁSTICO 3.5" 135 TPI DS/DD SELECT .2.821$ + IVA 

2DHDS CX. DISQUETES 5.25" SELECT ALTA DENSIDADE. 3.846$ + IVA 

2D96S CX. DISQUETES 5.25" SELECT 96 TPI. 2.350$ + IVA 

DS/DD 5.25" 48 TPI — 85$50 CADA 


{modemsK 



— PC CARD MODEM 

(2400 BAUD). 45.505$ + IVA 

* — MODEM 

(2400 BAUD). 56.905$ + IVA 



DMP3160 

IMPRESS. 160 CPS-80/132 COL. 


NOL . 

... 47.405$ + IVA 

DMP4000 

IMPRESS. 200 CPS-132/230 COL. 


NLQ . 

... 80.655$ + IVA 

LQ3500DI 

IMPRESS. 160 CPS-80/132 


24 AGULHAS . 

... 79.705$ + IVA 

LQ5000DI 

IMPRESS. 288 CPS-132/230 


24 AGULHAS . 

. 127.205$ + IVA 

43134 

PRINTER 180 



9 AGULHAS . 

... 42.750$ + IVA 

43156 

PRINTER 264 



24 AGULHAS . 

159.125$ +IVA 

43180 

LASER PRINTER 

275.000$ + IVA 


NOVIDADE 

UM DISCO PARA O SEU PC 
HARDCARD DE 40 MBYTES 



A 40 MILISEGUNDOS 
SÓ 75.000S00 + IVA 
E nós instalamos! 




ENVIAMOS A COBRANÇA 
PREÇOS ESPECIAIS PARA REVENDA 


Calçada do Carmo, n s 18 - I 2 1200 LISBOA Tel. 32 06 38 



OPACII+ 

OPEN ACESS II PLUS 



(PROGRAMA) . 

150.000$ + IVA 

OPACII 

OPEN ACESS II . 

135.000$ + IVA 

UPOC4 

ULTRAPOC 4.0 . 

.. 85.000$ + IVA 

UORC4 

ULTRAORÇAMENTO 4.0 .... 

.. 75.000$ + IVA 

USAL4 

ULTRASAL 4.0 . 

.. 75.000$ + IVA 

USTOK 4 

ULTRASTOCK 4.0 . 

.. 75.000$ + IVA 

UFACT 4 

ULTRAFACT 4.0. 

.. 75.000$ + IVA 

UCOMP4 

ULTRACOMPRAS 4.0 . 

.. 65.000$ + IVA 

UVEND4 

ULTRAVENDAS 4.0. 

.. 65.000$ + IVA 

UMP 4 

ULTRA-MP 4.0 . 

. 20.000$ + IVA 

INT 4 

ULTRAINTEGRA 4.0 . 

48.000$ + IVA 

UDOIS4 

ULTRADOIS 



(STOKS+FACT) 4.0 . 

.. 138.000 + IVA 

UCOMER4 

ULTRACOMERCIAL (STOKS- 

f 


FACT+VEND+COMP) 4.0 .... 

248.000$ + IVA 
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MAIS 

E MELHOR 


Com esta edição, a"Amstrad Magazine" completa o seu primeiro 
ano de vida. Um ano em que, apesar das dificuldades, a revista se 
afirmou no panorama do jornalismo informático português. Ao 
entrarmos nesta segunda etapa, gostaríamos de vos assegurar que 
manteremos a qualidade e o figurino habituais. No entanto, iremos, 
nos próximos meses, introduzir algumas alterações: mais temas em 
análise, novas secções, novos colaboradores. Tudo isto com o 
objectivo que se tornou o lema da nova equipa que, a partir de agora, 
faz a"Amstrad Magazine": Mais e Melhor. 

Mais e melhor informação. Não descurando um dos aspectos de 
maior sucesso da revista: o seu carácter formativo e de apoio aos 
utilizadores. Não só utilizadores Amstrad, mas todos os utilizadores 
de informática. Aliás é com imenso agrado que na redacção 
recebemos muita correspondência de utilizadores de outras marcas. 
Significa isto que a"Amstrad Magazine" é hoje, sem dúvida, um 
ponto de referência essencial para todos aqueles que gostam de 
informática em Portugal. 

Como sempre aguardamos as vossas críticas e sugestões. A vossa 
colaboração é indispensável. Se uma revista é importante para os 
leitores, também não temos a menor dúvida de que sem leitores não 
há revistas de qualidade. 

Uma palavra final para os anunciantes. Sem o seu apoio desde a 
primeira hora, não teria sido possível a"Amstrad Magazine" chegar 
onde chegou. Estamos certos que continuarão a investir na revista 
como um meio privilegiado que é para a divulgação de produtos e 
serviços junto de um vasto público atento e interessado pela 
informática. 


Nunes Carneiro 
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NOTICIAS 




6 

NEM SÓ DE 
"FOLLIES" VIVE PARIS 


"Amstrad Magazine" em Paris: a 
reportagem da SICOB'89 

13 

MS-DOS 

POR DENTRO 


Continuamos a penetrar nos segredos do 
MS-DOS 


JA COMO PROGRAMAR 
lO ECRÃS DE GRANDE 
DIMENSÃO 

Como? Leia este artigo. 


Também estivemos na CEBIT. Aqui conta¬ 
mos o que vimos de mais importante. 


24 



MERCADO INGLÊS 


Que o Amstrad PC 1640 liderava as 
vendas de micro-computadores já nós 
sabíamos. Agora que o PC 2086 já é o 
segundo classificado... 
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A ti CORREIO 
HW DOS LEITORES 


EMPRESAS: SEPRIN 

Em Coimbra, um Centro Profissional 
Amstrad que aposta na qualidade e no 
apoio integral aos seus clientes. 

DE DADOS 


CA ESTRUTURAS 
WU DINÂMICAS 


27 57 

SOLUÇÃO PARA INDÚSTRIA 
DAS CONFECCÕES 

a 


A INFORMÁTICA 
NO ENSINO 
DO ANO 2000 


A SOPSI e a EFACEC acordaram a forma 
de comercializar o sistema ROBLAS —uma 
solução informática para a indústria das 
confecções. 



L A CONCURSO 
OU SOCARTEL/ 
/PUBLINFOR 


COMPRO-VENDO 

-TROCO 
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NOTÍCIAS 


NORTINFOR EXPOSIÇÃO NO PORTO 


A NORTINFOR-Exposição das Tec¬ 
nologias da Informação decorreu 
no Porto, de 25 a 28 de Maio, com 
a presença de cerca de 50 exposi¬ 
tores. 

Destaque para as presenças da 
Cominfor (Amstrad), Comercial La- 
borum (Epson), Focor (Acer), Lusi- 
comp (Forum e Amstrad) e Phillips 
que, por si só ocuparam mais de 
50% do espaço da feira. Presentes 
ainda representantes de marcas 
como a Compaq, Hewllet-Packard 
e Altos. 

O público não acorreu como se¬ 
ria de esperar, tendo a organização 
divulgado a presença de mais de 5 
mil visitantes. 



FOCOR 


alpha micra 


LUSICOMP: 

UMA NOVA FILOSOFIA NA COMERCIAL NA INFORMÁTICA 


A Lusicomp-Sociedade 
Lusitana de Computado¬ 
res, SA realizou uma con¬ 
ferência de imprensa pa¬ 
ra apresentação da em¬ 
presa, produtos e servi¬ 
ços, bem como para di¬ 
vulgar a sua nova forma 
de actuação no mercado 
informático. 

Para Ferreira de Melo, 
director-geral da Lusi- 
comp, o grande trunfo 
desta nova empresa do 


grupo Sopsi é a "existên¬ 
cia de um só interlocu¬ 
tor". O cliente ao relacio¬ 
nar-se com a Lusicomp 
pode esperar um serviço 
completo, desde o "es¬ 
tudo da solução indicada 
até à formação dos utili¬ 
zadores", passando na¬ 
turalmente pela imple¬ 
mentação de software e 
o suporte ao hardware. 

A nível de hardware, a 
Lusicomp representa em 


exclusivo os computado¬ 
res Forum e é um dos no¬ 
vos Centros Profissionais 
Amstrad, que comercia¬ 
lizam os novos modelos 
Amstrad PC 2286 e PC 
2386. 

A nível de software, a 
Lusicomp tem disponí¬ 
veis as aplicações habi¬ 
tuais (contabilidades, 
facturação, stocks, salá¬ 
rios, etc.) e ainda uma 
série de aplicações para 


mercados verticais: asso¬ 
ciações de futebol, segu¬ 
ros, gestão de manuten¬ 
ção, gestão de produção, 
gestão de pontos de ven¬ 
da e de relógios de pon¬ 
to, etc. 

Finalmente, a Lusi¬ 
comp estabeleceu recen¬ 
temente um acordo para 
a comercialização do sis¬ 
tema Roblas, que se des¬ 
tina à indústria das con¬ 
fecções. 


AMSTRAD IMAS TERCEIRAS JORNADAS 
DE SAÚDE MENTAL DO ALGARVE 


As 3? s Jornadas de Saúde 
Mental do Algarve conta¬ 
ram como suporte infor¬ 
mático de computadores 
AMSTRAD. 


Júlio Borges da Borges & 
Canhoto Lda. (Centro Pro¬ 
fissional Amstrad), consi¬ 
derou esta acção "como 
contributo para a divulga¬ 


ção da informática e dos 
computadores em mais 
um domínio que conside¬ 
ramos de grande valia". 
O Dr. Pestana Cruz, da or¬ 


ganização das jornadas, 
mostrou-se satisfeito com 
o apoio informático não só 
ao secretariado mas tam¬ 
bém aos participantes. 
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AMSTRAD PC 2386 


É 0 COMPUTADOR DA VOLTA 
A PORTUGAL/89 


0 processamento informático dos 
resultados e classificações da Vol¬ 
ta a Portugal/89 será efectuado 
em computadores AMSTRAD da 
série profissional 200. Este acor¬ 
do realizado entre a Cominfor e a 
Empresa do "Jornal de Noticias" 
vai permitir uma melhor e mais rá¬ 
pida recolha, tratamento e trans¬ 
missão da informação sobre a 
maior prova do nosso ciclismo. 
Ainda no âmbito das provas desta 


modalidade, que costumam animar 
as nossas estradas nos meses de 
Verão, os computadores AMS¬ 
TRAD prestarão idêntico apoio aos 
Grandes Prémios do "Jornal de 
Notícias", de "O Jogo" e à Volta 
ao Minho (organizada pela Associa¬ 
ção de Ciclismo de Braga). Assim, 
se no final da etapa, vir o camião 
AMSTRAD, é aí que está instalado 
o centro informático e a sala de 
apoio aos jornalistas. 



AMSTRAD APOIA 
ACADÉMICO DE BRAGANÇA 



A equipa de hóquei em pa¬ 
tins do Clube Académico de 
Bragança (na foto), recebeu 
o apoio da AMSTRAD e do 
seu revendedor autorizado 


naquela localidade (Cosmo- 
técnica). O Clube Académi¬ 
co de Bragança participa no 
campeonato nacional da 2 a 
divisão. 



COURIER 53 
O NOVÍSSIMO FAX 
PORTÁTIL DA NISSEI 


O portátil Courier 53 é o primeiro telefax da Nissei 
distribuído em Portugal pela SOCARTEL (empre¬ 
sa associada do grupo SOPSI) e aprovado pelos 
CTT-TLP. 

O Nissei Courier 53 foi concebido para ser um ver¬ 
dadeiro portil, sendo um precioso auxiliar para to¬ 
dos os que, em viagem, em casa ou no escritó¬ 
rio necessitam transmitir ou receber documentos 
com elevada qualidade e rapidez. 

O Nissei Courier 53 pode ser ligado a qualquer 
rede telefónica ou de telefax, através do acopla¬ 
dor acústico, podendo ser enviados ou recebidos 
documentos numa cabine telefónica, no quarto 
de hotel ou até no automóvel. 

Apesar da sua inegável versatilidade e portabilida¬ 
de, o Nissei Courier 53 mantêm a qualidade de 
outros Faxes, com elevada resolução e velocidade, 
podendo ser utilizado no escritório e na empresa. 
O Nissei Courier 53 é um telefax do Grupo 3, pos¬ 
sui uma bateria (recarregável numa hora) que per¬ 
mite o envio até 25 páginas, usando papel A4 em 
rolo e demora apenas 40 segundos por página. 
Também permite fazer fotocópias, além de pos¬ 
sibilitar a recepção automática quando ligado à 
rede. Finalmente, o seu peso é de apenas 3,5 
Kgs, o que o torna no mais leve do mercado. 

O Fax Nissei Courier 53.está já disponível nas lo¬ 
jas SOCARTEL (Lisboa, Porto, Coimbra, Guima¬ 
rães, Chaves, Póvoa de Varzim, Olhão, Portimão, 
Monção, Bragança, Leiria, Sines e Cartaxo). 
Mas, mais importante, é que esta maravilha da 
técnica tem um preço surpreendentemente aces¬ 
sível: 188.900100. 
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NOTÍCIAS 


AMSTRAD PC 2000; 

APRESENTAÇÕES MUITO CONCORRIDAS 


A chegada a Portugal dos primeiros 
modelos da nova série Amstrad PC 
2000 foi assinalada com sessões em 
Lisboa e Porto. Centenas de empre¬ 
sários, jornalistas e revendedores se¬ 


guiram atentamente a apresentação 
dos novos equipamentos, bem como 
da estratégia da Cominfor para o 
mercado português neste novo seg¬ 
mento de mercado. 




PPC HOMOLOGADO 
PELO CET 


O CENTRO DE ESTUDOS DE TELE¬ 
COMUNICAÇÕES, órgão dos Cor¬ 
reios e Telecomunicações de Portu¬ 
gal responsável pela análise de todos 
os produtos comercializados no nos¬ 
so país susceptíveis de serem conec¬ 
tados à rede telefónica, acabou de 
homologar o modem que equipa os 
AMSTRAD PPC 640. 


Portanto se tem um portátil da AMS¬ 
TRAD e não o conecta à rede com 
medo de ser penalizado por ele não 
estar homologado, esteja à vontade: 
o número individual do registo é o 
DE011989CET. Mas achamos que 
fez bem. Há que acabar com os 
"não encartados" que circulam nas 
nossas linhas e, para além disso, as 
multas são pesadas: de 200 a 2000 
contos, conforme estabelece o 
Decreto-Lei 432/88. 


UM EM CADA SEIS ESTUDANTES 
EUROPEUS ESCOLHEU AMSTRAD 


A Dataquest revelou que 18,5% 
dos estudantes universitários eu¬ 
ropeus escolheram computadores 
AMSTRAD, no ano de 1988. 
Num total de 491.800 unidades 
vendidas, as preferências dos es- 


Others 
21 . 8 % 


tudantes repartiram-se assim: 
Amstrad (18,5%), Atari (24,8%), 
Commodore (23,7%), Olivetti 
(5,5) e 27,5% para outros cons¬ 
trutores. 


Atari 

24.8% 


Apple-1.3% 
Zenith-2.2% 
IBM-2.2% 

Olivetti 

5.5% 



Commodore 

23.7% 


Amstrad 

18.5% 
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AMSTRAD LIDERA VENDAS 
DE MICROCOMPUTADORES 
PARA A ADMINISTRAÇÃO 
PÚBLICA PORTUGUESA 


A Amstrad lidera as vendas 
de microcomputadores pa¬ 
ra a Administração Públi¬ 
ca, revela um estudo do 
Instituto de Informática do 
Ministério das Finanças. 

Segundo Mendes Santos, 
director do Serviço de Tec¬ 
nologias de Informação da¬ 


quele instituto, a Adminis¬ 
tração Pública portuguesa 
adquiriu, em 1988, cerca 
de 1900 microcomputado¬ 
res, dos quais 627 Ams¬ 
trad (33%). 

No âmbito do investimen¬ 
to em equipamentos infor¬ 
máticos, os microcompu¬ 


tadores representam 23% 
dos 4,5 milhões de contos 
dispendidos pela adminis¬ 
tração pública no ano 
passado. 

De salientar ainda que 54% 
dos microcomputadores 
adquiridos se destinaram 
ao sector da educação. 


MICROCOMPUTADORES VENDIDOS 
PARA ADMINISTRAÇÃO PUBLICA (1988) 



EH UNIDADES VENDIDAS B8 EM VALOR 


CONFERÊNCIA EUROPEIA MOTOROLA 


A Motorola Computers Group 
— representada em Portugal pela 
Compta —realizou este ano, no 
Estoril, a sua conferência anual 
de distribuidores, onde estavam 
presentes representantes vindos 


de todos os países da Europa. 

A Motorola é um dos principais 
líderes no fabrico de processa¬ 
dores e sistemas informáticos 
departamentais em ambiente 
Unix. 


MAIS 

LOJAS 

SOCARTEL 

Continuam a abrir ao públi¬ 
co em diversos pontos do 
país, lojas SOCARTEL: 
Cartaxo, Sines, Leiria, 
Monção, Penafiel e Póvoa 
do Varzim são as mais re¬ 
centes. Nas lojas ''SO¬ 
CARTEL'', está disponível 
uma variadíssima gama de 
produtos: computadores, 
televisores e vídeos, apare¬ 
lhagens de hi—fi, auto— 
rá dios, software e consu- 
míveis. As marcas repre¬ 
sentadas são bem conhe¬ 
cidas: Amstrad, Amstrad 
— Fidelity, Octal, Sanyo, 
Sony e Nissei. As lojas 
'.'SOCARTEL'' são já 13: 
além das mais recentes, 
existiam já estabelecimen¬ 
tos no Porto (2), Lisboa, 
Coimbra, Chaves, Guima¬ 
rães e Bragança. 
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CAPA 


"NEM SÓ DE FOLHES 
VIVE PARIS" 



Quem se deslocou ao Park des Ex- 
positions de Paris para visitar o Sl- 
COB 89, decerto que se apercebeu 
da dimensão desta feira, que reflec- 
te em nossa opinião a tentativa dos 
franceses de recuperarem uma ima¬ 
gem perdida para o SICOB por um la¬ 
do, e por outro a tendência da infor¬ 
mática ser vista como uma multipli¬ 
cidade de aplicações que vão desde 
o mobiliário ás máquinas de impres¬ 
são e selagem automáticas, passan¬ 
do pelas telecomunicações. 

A associação da informática e dos 
computadores às empresas e ás apli¬ 
cações de gestão está largamente ul¬ 
trapassada hoje em dia, destacando- 
-se três novas vertentes importantes: 
—aplicação da informática às teleco¬ 
municações com especial relevo 
para o Videotexto e redes Telepac 
com o uso de emuladores e mo¬ 
dems sobre PCs para tratamento 
da informação à distância 
—aplicação ao nível industrial com 
destaque para a utilização de "ser- 
veurs” com base nos novos ATs 
com processadores 386 e redes 
que se vulgarizam 
— grande desenvolvimento de novos 
produtos ao nível do software de 
base, com destaque para as últimas 
versões do UNIX e do PROLOGUE, 
bem como programas integrados 
para desenvolvimento que acabam 
por ser autênticas linguagens de 
programação para uso pessoal 


Destaque-se também a participação 
significativa de companhias estran¬ 
geiras, em particular dos Estados 
Unidos da América, Alemanha, Ingla¬ 
terra e Bélgica, sobretudo na área de 
software específico e componentes 
electrónicos. 

Mas o grande destaque deste 40° 
SICOB vai para as telecomunicações. 
Foram sem dúvida "A vedeta” den¬ 
tre os mais de 800 expositores que 
enchiam os 117.00 m? de área co¬ 
berta; destaque também mas no sen¬ 
tido negativo, para as ausências da 
HEWLETT-PACKARD, OLIVETTI 
TANDON, que optaram pelo certame 
"PC-FORUM” 

Entre as principais tendências deste 
SICOB 89, merece relevo a afirmação 
de praticamente todas as marcas nos 
PCs baseados nos processadores IN¬ 
TEL 386, dos portáteis com écrãs 


LCD em concorrência com o plasma 
e uma forte expansão das telecomu¬ 
nicações e da telemática. 


NOVIDADES 
OU TENDÊNCIAS 


Constata-se que os computadores de 
escritório evoluem decididamente 
para modelos do tipo PC/AT 386, on¬ 
de os processadores 386 sx se afir¬ 
mam como vedetas. 

É o caso da Forum Internacional que 
apresentava uma máquina com 386 
sx a 16 MHZ e sob MS-DOS 3.3, 
UNIX 386/IX, PROLOGUE 3, e cuja 
memória RAM pode suportar até 
4 MB. 
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0 V386 S de Victor Technologies, a 
20 MHZ pertence a esta mesma li¬ 
nha O Tandy 4000 LX é compatível 
simultaneamente com PC/XT e 
PC/AT (a duas e seis slots respecti¬ 
vamente) o que não o impede de 
possuir um bus de 32 bits 
Ainda nas máquinas 386, aparece o 
386 série da Altos Computer 
Systems que funciona a 25 MHZ, 
com uma memória-cache de 1 6 KB. 
A sua capacidade em disco vai de 80 
a 300 MB. ADD-X Systémes, com o 
seu ADD-X 386-25, que utiliza esta 
mesma velocidade de relógio e su¬ 
porta uma memória de 1 a 8 MB so¬ 
bre a carta mãe. Uma das suas prin¬ 
cipais características tem a ver com 
o seu design original 
O G50DX da SMY —Groupil a 
25 MHZ, com uma memória de 
??? MB e uma capacidade em disco 
até 600 MB 

Original é a filosofia do UTEC RX 32 
da ANIRAL UTEC que associa um 
processador 8030 da Motorola a um 
80386 da Intel, o que permite utili¬ 
zar simultaneamente programas sob 
MS-DOS e a outra de 4 MB, em 
standard para UNIX. 

A AMSTRAD aparece inegavelmen¬ 
te como a marca que dentro da ló¬ 
gica do próprio mercado associa 
aos 386, características já conheci¬ 
das, que tornam estes ATs, dos mais 
interessantes, em qualquer mer¬ 
cado... 


PORTÁTEIS 
QUE DESTAQUES? 

Os portáteis, pela sua estética sedu¬ 
tora, suscitam sempre um interesse 
particular. 

O Walkom da TVF é um portátil com¬ 
patível PC/AT com écrã LCD "white 
paper", que oferece uma nitidez pelo 
menos igual á dos écrãs de plasma, 
comporta um disco de 20 ou 40 MB 
A Sharp entra também na corrida 
com o seu PC —5541, concebido á 
volta do 80 c 286 e dotado de uma 
velocidade relógio programável (6.8 
ou 12 MHZ), monocromático, mas 


com 1 6 tons de cinzento, o seu écrã 
LCD permite emulações gráficas 
MDA, MCGA, EGA e VGA. Este mes¬ 
mo tipo de écrã equipa também o 
portátil alto de gama Olyport 
386—40 da AEG Olympia (baseado 
no 80386 a 12 MHZ) que dispõe de 
2MB de memória e um disco de 
40MB 

No que diz respeito ás cartas gráfi¬ 
cas, o standard é claramente o VGA 
da IBM, adoptado finalmente pela 
Hercules Computer Technology 
(softsel). Da mesma forma os moni¬ 
tores seguem cada vez mais a nor¬ 
ma VGA, e além disso o sistema 
8514/A da IBM. 


O VERDADEIRO 
BOOM DAS 
TELECOMUNICAÇÕES 

Este SICOB 89 foi verdadeiramente 
marcado pela integração das tele¬ 
comunicações nos postos de traba¬ 
lho e nos sistemas informáticos em 
geral 

Consta—se particularmente a inte¬ 
gração das normas Videotexto nos 
terminais, inteligentes ou não, a 
generalização de sistemas de tele 


manutenção à distância, e tudo a 
partir de um simples minitel (em 
França é claro). O próprio sistema 
minitel, sob a norma Teletel France¬ 
sa de poder suportar écrãs LCD. A 
inscrustação de imagens e a projec- 
ção sobre grandes écrãs de diodo es¬ 
tá associada a estas tecnologias. 
Em teletransmissão assíncrona, 
os modems a 2400 bauds ganham 
terreno. Os emuladores de teleco- 
piadores conhecem um verdadeiro 
surto, tanto mais que podem ser 
associadas à numeração de docu¬ 
mentos por scanner. As cartas de 
emulação são cada vez mais multi- 
-protocolos (fax, telex, videotexto, 
etc.) 

A abertura das redes RNIS NUMERIS 
(em França), suscita novas necessi¬ 
dades, como a transmissão de ima¬ 
gens fixas e sistemas de videocon¬ 
ferência, explorados por acesso a 
esta rede. Da mesma forma, as 
transmissões entre esta rede e a 
Transpac florescem. Certas marcas 
chegam mesmo a propôr a transmis¬ 
são de telecópias ou ficheiros infor¬ 
máticos por via hertziana. Enfim, 
este verdadeiro boom das telecomu¬ 
nicações, decerto que nos trará nos 
próximos anos a maior evolução do 
século dentro das novas tecnologias 
de informação. 
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A nova 


Geração de Diskettes BASF 
Ainda com mais Segurança 




iam 


As Diskettes BASF 
oferecem-lhe agora ainda 
mais segurança, também em 
condições desfavoráveis de 
gravação. 

A nova geração de Diskettes 
BASF é o resultado do mais 
recente conhecimento da 
pesquisa e desenvolvimento, 
que deram origem a uma 
optimização de matérias, na 


tecnologia de produção e na 
segurança da qualidade. 

Afinal a BASF é — o inventor 
do princípio da produção in¬ 
dustrial de suportes magné¬ 
ticos em geral — uma empresa 
leader a nível mundial nas 
ciências bases da Química e 
Física e está sempre a dar novos 
impulsos à evolução de moder¬ 
nos suportes magnéticos. 



1 BASF 








































































AGENDA 1989 


JUNHO 

• CAT —COMPUTER-AIDED TECNOLOGIES IN 

THE MANUFACTURING 
Industry (Congresso e Exposição) 

Estugarda—6 a 9 de Junho de 1989 

• ECA'89 —EXPOSIÇÃO INTERNACIONAL DE 

COMPONENTES DE ELECTRÓNICA 

Hong-kong—23 a 26 de Junho de 1989 

SETEMBRO 

• INELTEC'89 —EXPOSIÇÃO INTERNACIONAL 

DE ENGENHARIA ELÉCTRICA E 
ELECTRÓNICA 

Basileia—5 a 8 de Setembro 

• BUFA'89 —EXPOSIÇÃO DE EQUIPAMENTO DE 

ESCRITÓRIO, AUTOMAÇÃO E 
TELECOMUNICAÇÃO 

Basileia—26 a 30 de Setembro 

OUTUBRO 



• INFORPOR/89 

LISBOA—26 a 29 de Outubro 


• ENIC/89 

Lisboa —17 a 20 de Outubro. 

• ITU—COM'89 —EXPOSIÇÃO MUNDIAL DE 
ELECTRÓNICA 

Genéve—2 a 7 de Outubro 

• SYSTEMS —SALÃO INTERNACIONAL E 

CONGRESSO DO COMPUTADOR 
E COMUNICAÇÃO 

Munique—16 a 20 de Outubro 

• SMAV—SALÃO INTERNACIONAL DO 

ESCRITÓRIO, TRATAMENTO DA 
INFORMAÇÃO, TELEMÁTICA E 
MÁQUINAS DE ESCRITÓRIO 
Milão—5 a 9 de Outubro 

• ELECTRO —FEIRA INTERNACIONAL DA 

INDÚSTRIA ELÉCTRICA, 
ELECTRÓNICA, AUTOMATIZAÇÃO, 
ILUMINAÇÃO E INFORMÁTICA 
INDÚSTRIAL 

Bilbao— 16 a 19 de Outubro 

• INTER BI RO/l NFORM ATI K —EXPOSIÇÃO 

INTERNACIONAL 

SOBRE 

PROCESSAMENTO 
DE DADOS E 
EQUIPAMENTOS DE 
ESCRITÓRIO 

Zagreb—16 a 20 de Outubro 

NOVEMBRO 

• COMPEC-EXPOSIÇÃO DE PERIFÉRICOS PARA 
COMPUTADORES 

Londres—14 a 17 de Novembro 

• PRODUCTRÓNICA-SALÃO MUNDIAL DE 
PRODUÇÃO ELECTRÓNICA 
Munique—7 a 11 de Novembro 

• TÉCNICA-SALÃO INTERNACIONAL DAS 

NOVAS TECNOLOGIAS E DA 
INOVAÇÃO 

Turim—7 a 11 de Novembro 

• ROBÓTICA-SALÃO INTERNACIONAL DA 

TECNOLOGIA E APLICAÇÕES DA 
ROBÓTICA 

Saragoça—15 a 19 de Novembro 

• SIMO —FEIRA INTERNACIONAL DE 

EQUIPAMENTO DE ESCRITÓRIO E 
INFORMÁTICA 

Madrid —17 a 21 de Novembro 

• LÓGIC-COMPUTER SHOW 
Lugano—15 a 18 de Novembro 
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Data Cartridges Streamer, Discos 
Bandas Magnéticas, CALCULUS-EUROMAGNETICS 
Diskettes PARROT 
Fitas Tinta para Impressoras 
Arquivo p/ Diskettes, Bandas, Discos, Pastas, etc. 
Suportes Rotativos p/ Terminais de Computadores 
Monoblocos contra fogo p/ Registos Magnéticos 
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PROGRAMAS 


P 

c 


IO MSDOS! 


POR DENTRO 


(PARTE III) 


Neste artigo vamos começar a apresentar uma por uma todas as funções do 
DOS, qual a sua sintaxe de chamada, e valores de saída. 

Como referência para os leitores apresentamos neste artigo uma tabela com 
a numeração e identificação de todas as funções o que se pode tornar 
bastante útil quando se estão a usar estas funções poupando assim a nossa 
memória e a consulta de manuais do utilizador. De facto, aconselhamos os 
leitores interessados a terem sempre esta tabela junto ao local de trabalho, 
pois ao fim de pouco tempo vão verificar a sua extrema utilidade. 

Note-se que na apresentação que se segue optou-se por agrupar as funções 
que desempenharn tarefas relacionadas entre si, de maneira a existir uma 
melhor compreensão por parte de todos os leitores, facilitando ao mesmo 
tempo o nosso trabalho. Além disso, sempre que for pertinente apresenta-se 
uma pequena rotina ilustrando cada função, evitando no entanto repetições 
pois existem funções bastante parecidas. 



I — TAREFAS DE ENTRADA 
E SAÍDA 

Como se sabe, o MS-DOS tem um 
buffer associado ao teclado onde são 
armazenadas as teclas que são pres¬ 
sionadas para posterior tratamento. 
Através deste mecanismo pode ga- 
nhar-se algum tempo, pois o utilizador 
pode antecipar-se ao pedido de dados 
feitos pelo MS-DOS ou por uma qual¬ 
quer aplicação. 

Este facto não é novo para quase 
ninguém, o que no entanto poucos 
sabem é que quando se origina um 
interrupt do teclado (pressão ou depres¬ 
são duma tecla), quando se vai ler ao 
porto do teclado qual a tecla premida o 
que é devolvido não é o caracter ASCII 
correspondente como seria de esperar 
mas um código interno gerado pelo 
controlador de teclado. A esse código 
geralmente dá-se o nome de “scan 
code” que é único para cada uma das 
teclas, inclusive se efectuarem as mes¬ 
mas operações (dois shifts, por exem¬ 
plo). Depois de lido o scan code, tem 


que se fazer uma equivalência a um 
código ASCII usando para tal várias 
tabelas, pois é necessária uma tabela 
para as teclas sem shift, outra para as 
teclas com Caps Lock activo, etc... 

Voltando ao buffer do DOS, refira-se 
que neste buffer residem os scan codes 
das teclas bem como a equivalência 
destas teclas em códigos ASCII. 

Embora a ideia de colocar um buffer 
para o teclado fosse boa pensamos que 
em nossa opinião este está deficiente¬ 
mente implementado pois o tamanho 
dele é apenas de 
32 bytes, ou 
seja, 16 teclas 
premidas, o que 
pode ser bastan¬ 
te limitativo. 

Caso este buf¬ 
fer encha ouve- 
se um irritante 
apito tão carac¬ 
terístico dos 
PC’s. 

Refira-se para maior entendimento 
do vocabulário que vai ser utilizado que 


sempre que houver referên¬ 
cia a um “dispositivo de saí¬ 
da, normalmente é o ecrã, 
no entanto, se a saída dum 
programa for direccionada 
para um ficheiro passa ele a 
ser o “dispositivo de saída". 
O mesmo mas ao contrário 
se verifica para o “dispositivo 
de entrada” ficando um fi¬ 
cheiro a representar o papel 
do teclado. Já o termo “dis¬ 
positivo auxiliar” designa 
quase sempre a primeira 
porta série do computador. 

Passamos a enunciar as 
funções disponíveis para 
executar tarefas de Entrada/ 
Saída de caracteres: 

FUNÇÃ01 —Ler caracteres do tecla¬ 
do e ecoá-lo 

— Esta função lê um caracter vindo 
do dispositivo de entrada e ecoa-o para 
o dispositivo de saída além de o devol¬ 
ver no registo AL. 

A maneira de chamar esta rotina a 
partir do teclado é a seguinte, referindo 
desde já que a rotina que a seguir se 
apresenta mostra a maneira como é 
implementada a leitura do teclado nas 
livrarias standard dos compiladores de 
C: 


char get_char() /* Devolve um caracter 

*/ 

{ union REGS reg; 

reg.h.ah =1; /* Seleccionar função */ 

int86(0x21,Sreg,&reg) ; /* Chamar o DOS */ 

return reg.h.al; /* Caracter devolvido */ 

) 


Note-se que o valor que esta função 
devolve é já o ASCII code da tecla 
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PROGRAMAS 


recebida. Se esse código for zero signi¬ 
fica que a tecla premida foi uma tecla 
especial (cursor, teclas de função, 
etc...), neste caso, a próxima chamada 
desta rotina devolve o scan code dessa 
tecla e não os dados referentes a uma 
nova tecla. 

Finalmente refira-se que esta função 
faz o tratamento das sequências de 
teclas Crtl-C e Crtr-Break. Caso isso 
não seja desejado deve chamar-se a 
função 7 referida mais adiante. 

FUNÇÃO 2 — Saída de caracteres 

— Esta função imprime um dado 
caracter ASCII, passado no registo DL, 
no dispositivo de saída. Segue-se uma 
função em C que utiliza esta função: 



put_char(ch) /* 
int ch; /* 
{ union REGS reg; 

reg.h.ah=2; /* 
reg.h.dl=ch; /* 
int86(0x21,Sreg,&reg); /* 


Recebe comc 
a imprimir 


argumento 

'/ 


caracter */ 


Seleccionar função */ 
Passar caracter a imprimir 
Chamar DOS */ 


FUNÇÃO 3 — Ler Caracter do Dispo¬ 
sitivo Auxiliar 

— Espera por caracter vindo do porto 
série e devolve-o no registo AL. Note-se 
que esta função não dispõe dum buffer 
interno pelo que um programa que 
utilize esta função deve ser suficiente¬ 
mente rápido para captar todos os 
caracteres que são recebidos no porto 
série, caso contrário, corre o risco de 
começar a “perder” caracteres. A sinta¬ 
xe duma rotina em C para a utilizar é 
semelhante à apresentada para a fun¬ 
ção 1, pelo que nos abstemos de aqui a 
apresentar, pois basta colocar no regis¬ 
to o número apropriado (3). 

FUNÇÃO 4 — Enviar Caracter para o 
Dispositivo Auxiliar 

— Envia o caracter, passado no re¬ 
gisto DL, para o porto série. Se o dispo¬ 
sitivo estiver ocupado, esta função 
espera até o caracter poder ser proces¬ 
sado. 

FUNÇÃO 5 — Enviar caracter para a 
Impressora 

— Envia o caracter passado no regis¬ 
to DL para a o porto paralelo (impres¬ 
sora). Refira-se também que esta 
função espera até que a impressora 
possa processar esse caracter. 

FUNÇÃO 6 — Entrada/Saída Directa 
de caracteres 

— Recebe u m caracter do dispositivo 
de entrada, caso exista, sem o ecoar, ou 
envia um caracter para o dispositivo de 


saída. Estas acções são escolhidas a 
partir do conteúdo do registo DL como 
abaixo se mostra: 


ocupam cada uma 1 bit. No assembler 
do microprocessador 8086 essas flags 
estão agrupadas num registo, tal como 
se tratasse dum registo de 16 bits nor¬ 
mal. 

Voltando atrás à rotina ‘get_char2’ 
refira-se que a chamada da função 6 do 
DOS para ler um caracter devolve numa 
flag denominada ‘flag Zero’ se existe ou 
não caracter para ser lido. Assim para 
isolar essa flag é necessário isolá-la do 
resto do registo de flags e confome o 
seu valor há caracter par ser lido (se flag 
zero=0) ou não (flag zero=1). É pois 
esta comparação que aparece nas últi¬ 
mas linhas de ‘get_char2’. Quem não 
conseguir perceber exactamente como 
este teste foi efectuado não desespere 
pois vai ter várias oportunidades para 
adquirir esses conhecimentos. 

FUNÇÃO 7 — Entrada Directa de 
Caracteres sem Eco 

— Espera por um caracter recebido 
do dispositivo de entrada sem no 
entanto o ecoar. Note-se que esta fun¬ 
ção é diferente da anterior para ler 
caracteres pois esta espera até uma 
tecla ser premida. 

O caracter recebido é devolvido no 
registo AL. 


char get_char2( ) 
{ union REGS r; 


/* Devolve a última tecla premida ou 0 
caso não exista */ 


r.h.ah=6; /* 

r.h.dl=0xff; /* 

int86(0x21,S4,Sr); /* 

return ( 

(r.x.flag & 0x0040)? 

0 : 

r.h.al 

) 


put char2(ch) 

/* 

char ch; 


{ union REGS r; 


r.h.ah=6; 

/* 

r.h.dl=0xff; 

/* 


int86(0x21,&4,Sr), 


Escolher a função */ 

Ler um caracter */ 

Chamar o DOS */ 

/* Flag Zero=l -> */ 

/* não há caracter, senão 
/* Devolve o caracter */ 


Ecoar o caracter 'ch' 


Escolher a função 
Ler um caracter */ 
Chamar o DOS */ 


Torna-se aqui necessário fazer uma 
breve explicação da parte final da rotina 
‘get_char2’: para quem nunca entrou 
em contacto com a programação 
Assembler refira-se que as ‘flags’ são 
indicativos de que, depois de executada 
uma dada instrução, uma dada situação 
ocorreu: um registo ficou em zero, 
houve overflow depois duma instrução 
aritmética, etc.. Cada destas flags ape¬ 
nas pode tomar os valores 0 e 1, logo 


FUNÇÃO 8 — Entrada de Caracteres 
sem Eco 

— Exactamente igual à função ante¬ 
rior com a única diferença que nesta é 
feita a comparação da tecla recebida 
com Crtl-C e Crtl-Break actuando fa¬ 
zendo o programa abortar. 

FUNÇÃO 9 — Escrever cadeia de 

caracteres 

— Ora cá está uma função bastante 


14 AMSTRAD MAGAZINE 














conhecida de quem programa em 
Assembler! A tarefa executada é a de 
escrever uma sequência de carac¬ 
teres no dispositivo de saída. A ca¬ 
deia deve acabar com o caracter '$. 


referido no início deste artigo. A 
sequência de caracteres é devolvida 
quando for premida a tecla 'Enter'. 0 
endereço da cadeia é passado no regis¬ 
to Dr. Note-se que o primeiro byte do 


print_string(str) 
char str [ ]; 

{ union REGS r; 


/* Escrever uma sequência de caracteres 


r.h.ah=g; /* Escolher função */ 

r.x.dx=str; /* endereço da cadeia */ 

int86(0x21,Sr,Sr); /* Chamar DOS */ 


FUNÇÃO 10 — Leitura de Cadeia de 
Caracteres 

— Esta função lê uma sequência de 
caracteres usando o buffer de entrada 


buffer que se passa ao DOS indica o 
tamanho máximo que o buffer pode 
conter e que o primeiro byte da cadeia 
de caracteres é devolvido no terceiro 
byte do buffer, acreditem ou não! 


FUNÇÃO 11 — Verificar o Estado do 
Dispositivo de Entrada 

— Indica se existe um caracter dispo¬ 
nível no dispositivo de entrada sem no 
entanto consumir esse caracter caso 
exista. Para um posterior consumo 
desse caracter deve usar-se a função 7 
ou 8 (ver acima). Na saída o registo AL 
a 0 indica que não existe caracter e a 
FF indica o contrário. 


int is_char( ) /* Devolve 1 

se existir 
caracter a 
consumir */ 

{ union REGS r; 

r.h.ah=ll; 
int86(0x21,Sr,&r); 
return ( r.h.al — Oxff ); 

> 


Refira-se que na última linha desta 
rotina é comparado o registo AL com 
FF devolvendo o valor 1 caso isso acon¬ 
teça. 

FUNÇÃO 12 — Limpar Entrada e 
Chamar Função 

— São retirados todos os caracteres 
do buffer interno e depois é chamada 
uma das funções para tratamento de 
entrada (1, 6, 7, 8 ou 10). O número 
da função a chamar é passado no 
registo AL e nesse mesmo registo é 
devolvido o caracter lido (a não ser que 
seja chamada a função 10). 

Com a função 12 acabam-se as fun¬ 
ções de tratamento de Entrada/Saída 
do DOS. Como se pode verificar o DOS 
é prolítico em funções aparentemente 
semelhantes apenas em pequenas 
diferenças. No entanto, não desespere 
o leitor pois o assunto aqui tratado é 
um dos menos usados e, ao mesmo 
tempo, um dos mais confusos. Em 
artigos posteriores já este facto vai ser 
atenuado. 

CONCLUSÃO 

Ufa! O primeiro mergulho nas águas 
turvas do DOS já está dado! Das pró¬ 
ximas vezes (artigos) entrar na água 
(compreender) já não vai custar tanto, 
espero. Prepare-se portanto para entrar 
nas águas calmas (nem sempre) de 
leitura/escrita de dados em discos e 
disquetes. 

Bons mergulhos!!! 

Miguel Angelo Vi to ri no 


get_string(max, str) /*Ler até 'max' caracteres e pô-los 

em 'str'*/ 

int max; 
char str [ ]; 

{ union REGS r; 

char aux[256]; /* Cadeia auxiliar */ 

aux[0]=max; /* Dimensão máxima */ 

r.h.ah=10; 

r.x.dx-aux; 

int86(0x21,&r,&r); 

strcpy(str,Saux[2j; /* Copiar para a string desejada */ 
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FUNÇÃO 

ACÇÃO 

0 

Terminar Programa 

1 

Ler Caracter e Ecoar 

2 

Escrita de Caracter 

3 

Leitura de Caracter 

4 

Escrita de Caracter do Dispositivo Auxiliar 

5 

Escrita de Caracter no Dispositivo Auxiliar 

6 

Entrada/Saída Directa de Caracter 

7 

Leitura Directa de Caracter sem Eco 

8 

Leitura de Caracter sem Eco 

g 

Escrever Sequência de Caracteres 

10 

Leitura de Sequência de Caracteres 

ii 

Verificar Estado do Dispositivo de Entrada 

12 

Limpar Dispositivo de Entrada e Chamar Função 

13 

Inlciallzar Disco 

14 

Selecclonar Disco por Defeito 

15 

Abrir Ficheiro (FBC) 

16 

Fechar Ficheiro (FBC) 

17 

Procurar o Primeiro Ficheiro (FBC) 

18 

Procurar Ficheiro Seguinte (FBC) 

19 

Apagar Ficheiro (FBC) 

20 

Leitura Sequênclal (FBC) 

21 

Escrita Sequênclal (FBC) 

22 

Criar Ficheiro (FBC) 

23 

Mudar Nome de Ficheiro (FBC) 

25 

Ler Disco Corrente 

26 

Escrever Endereço de Transferência do Disco 

27 

Ler Informação da FAT para o Disco Actual 

28 

Ler Informação da FAT para o Disco Especificado 

33 

Leitura Aleatória (FBC) 

34 

Escrita Aleatória (FBC) 

35 

Ler Tamanho de Ficheiro (FBC) 

36 

Escrever Campo de Registo Aleatório (FBC) 

37 

Escrever Vector de Interrupt 

38 

Criar Segmento de Programa 

39 

Leitura de Bloco Aleatória (FBC) 

40 

Escrita de Bloco Aleatória (FBC) 

41 

Tratar Nome de Ficheiro 

42 

Ler Data do Sistema 

43 

Escrever Data do Sistema 

44 

Ler Tempo do Sistema 

45 

Escrever Tempo do Sistema 

46 

Pôr ou Tirar a Variável VERIFY 

47 

Ler Endereço de Transferência do Disco 

48 

Ler Versão do DOS 

49 

Terminar e Continuar Residente 

51 

Ler ou Escrever Estado do Crtl-Break 

53 

Ler Vector de Interrupt 

54 

Ler Tamanho de Espaço Livre do Disco 

56 

Ler ou Escrever Informação Dependente do País 

57 

Criar Dlrectória 

58 

Mudar de Dlrectória 

60 

Criar um Ficheiro 

61 

Abrir um Ficheiro 

62 

Fechar um Ficheiro 

63 

Ler de Ficheiro ou Dispositivo 

64 

Escrever para Ficheiro ou Dispositivo 

65 

Apagar Ficheiro 

66 

Mover Apontador de Ficheiro 


FUNÇÃO 

ACÇÃO 

67 

Ler ou Escrever Atributos de Ficheiro 

68 

Controlo de Entrada/Saída para Dispositivos 

69 

Duplicar um Descritor de Ficheiro 

70 

Forçar Duplicação de Descritor 

71 

Ler Directoria Actual 

72 

Alocar Memória 

73 

Libertar Memória 

74 

Modificar Alocação de Memória 

75 

Carregar e Executar Programa 

76 

Terminar um Processo 

77 

Ler Código de Retomo dum Sub processo 

78 

Procurar o Primeiro Ficheiro 

79 

Procurar o Ficheiro Seguinte 

84 

Ler Valor da Variável VERIFY 

86 

Mudar Nome de Ficheiro 

87 

Ler ou Escrever Data e Tem po de Acesso a Ficheiro 

89 

Ler Informação Estendida de Erro 

90 

Criar Ficheiro Único 

91 

Criar Novo Ficheiro 

92 

Bloquear/Desbloquear Acesso a Ficheiro 

94/95 

Ler e Escrever Informação Vária do Sistema 

98 

Ler Endereço do P.S.P. do Programa 

NOTA: As funções que não constam desta lista são de reduzido 

Interesse pois só são utilizadas para uso Interno do MS-DOS. 


Departamento de Informática 

HEXABASE 


CONTABILIDADE E GESTAÃO 
DE EMPRESAS, LDA. 

SECÇÃO DE CASH AND CARRY 

COMPUTADORES 

- Monoposto 

- Multiposto 

- Rede 

DISKETTES 

- SKC 

SOFTWARE PARA: 

• Gestão Comercial 

• Revendedores de Gás 

• Contabilidade 

• Imobilizado 

• Parques de Campismo 

ENVIAMOS À COBRANÇA PARA QUALQUER 
PONTO DO PAÍS. 

PEÇA INFORMAÇÕES DETALHADAS 

Rua José Augusto Lopes Júnior. 3-A 
•as 061 - 23347 — FAX: 061/23654 
2560 TORRES VEDRAS 


• Advogados 

• Construção Civil 

• Salários 

• Colectivades 

• Outros 


























AS CARACTERÍSTICAS 
FAZEM A DIFERENÇA 



AMSIRAD 
PC 2000 

Mais importante que o preço 
são as características. 

Uma vez mais a AMSTRAD 
vai conquistar o mercado 
- com a série PC 2000. 


CARACTERÍSTICAS 

AMSTRAD PC 2086 

AMSTRAD PC 2286 

AMSTRAD PC 2386 

Processador Intel 

8086 a 8 MHZ 

80286 a 12 MHZ 

80386 a 20 MHZ 

Wait States 

— 

1/2 

0,05 

Memória RAM com Verificação de Paridade 

640 K 

1 Mb 

4 Mb 

Memória Cache 

— 

— 

64 K a 35 ns 

Gestão de Memória 

— 

UM 4.0 

LIM 4.0 

Suporte para Co-Processador Aritmético 

8Ó87 

80287 

80387 

Unidade de Diskettes 

3 1/2” com 720 K 

3 1/2” com 1,4 Mb 

3 1/2” com 1,4 Mb 

Disco Rígido com Interleave de 1 :1 

30 Mb 

40 Mb 

65 Mb 

Slots de Expansão Livres 

3 de 8 bits 

5 de 16 bits 

5 de 16 bits 

Compatível com a Rede Novel 1 NetWare 

Como Posto de Trabalho 

Como «Server» 

Como «Server» 

Sistema Operativo 

MS/DOS 3.3 

MS/DOS 4.0 

MS/DOS 4.0 


CARACTERÍSTICAS COMUNS: Resolução VGA. Saída para unidades externas de diskettes e Streamer. Teclado 
tipo AT (102 teclas) Português. Rato compatível Microsoft. Segurança do teclado por chave. Windows. GW Basic. 
Monitores mono e colorido de alta nitidez (DOT PITCH .28). 
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PROGRAMAS 


COMO PROGRAMAR PARA 
ECRÃS DE GRANDE 
DIMENSÃO? 


O procedimento a seguir indicado é compatível com as normas gráficas 
EGA e VGA, bem como as CGA, MDA, Hercules (em modo texto), e a 
placa Monochrome Graphics Adapter. Outras placas gráficas, de outros 
fabricantes, deverão ainda, em princípio, ser compatíveis com este 
programa. 

A utilização deste método é simples e foi concebido baseado nos 
standards existentes. 


UM POUCO DE HISTÓRIA 

A maior parte dos grandes écrãs que 
hoje tíonhecemos são extensões quer da 
norma CGA (Color Graphics Adapter), 
quer da norma MDA (Monochrome 
Display Adapter). Isto significa que os 
seus buffers de video se iniciam no 
mesmo endereço (B8000 ou B0000, 
respetivamente) e ocupam palavras 
contíguas até ao final do ficheiro de 
imagem. 

Cada palavra é constituída por um 
caracter e um byte de atributo. As linhas 
estão dependentes do valor de “Num- 
-Columns” situando-se este valor 
geralmente em 80 colunas, e algumas 
vezes 40. E, na realidade podem ser de 
qualquer tamanho até 65535, depen¬ 
dendo, por sua vez, unicamente do 
hardware. A utilização deste standard 


como base permite que os adaptadores 
de video de elevada performance 
trabalhem com software que suporta 
apenas CGA ou MDA. 

Como grande parte dos adaptadores 
do passado, ou eram CGA, ou MDA, e 
como as pessoas que desenvolviam 
software eram preguiçosas, muitos 
programas pressupõem a existência de 
uma destas placas, fazendo como que o 
indesejável número 25 se espalhasse 
como uma praga por centenas de 
milhares de linhas de código. 

Agora, no entanto, que muitas pessoas 
estão mais felizes porque têm ecrãs capa¬ 
zes de mostrar mais linhas (o EGA, por 
exemplo, pode mostrar 43 linhas, o VGA 
50, o MONITERM VIKING ??), torna-se 
lamentável que o número 25 continue a 


assolar grande parte das aplicações. 

Os programadores, atentos como 
sempre, detectaram o problema deles, 
ao disporem da nova placa EGA, deci¬ 
diram fazer alguma coisa para melhorar 
este estado de coisas. Uma vez que a 
EGA dispunha de 43 linhas em modo de 
texto, acabámos por beneficiar de uma 
meia-dúzia de programas que tanto 
podiam trabalhar em modo de 25 linhas 
como em 43. Nem mais um programa, 
nem mais uma linha. 

Entretanto, a VGA tornou-se popular, 
especialmente para os felizardos que 
têm dinheiro para comprar um novo 
monitor e a respectiva placa. Com a 
popularidade veio a esperada onda de 
programas com 25 linhas, 43 linhas, e 
claro, o modo de 50 linhas, especial- 
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Fig.l- Exemplos de Pascal e assembler da declaração de 
BottomLine e NumColumns. 

Em Turbo Pascal: 

VAR NumColumns : INTEGER absolute $0040:$004A; 
BottomnLine Byte absolute $0040:$0084; 

Em assembler: 

BIOSData SEGMENT AT 0040h 
ORG 4Ah 

NumColumns DW ? 

ORG 84h 
BottomLine DB ? 

BIOSData ENDS 



mente “destinado às VGA”. Estes pro¬ 
gramas estão, obviamente, muito bem 
escritos; podem suportar diferentes 
tamanhos de ecrã. Mas, obviamente 
também, os tipos que os escreveram 
não viram a história toda. O que é que 
nós fazemos no caso de termos um 
computador que só permite uma visua¬ 
lização de 42 linhas? E se for 66 linhas? 
E com todas estas hipóteses nem se¬ 
quer pensámos na possibilidade das 90 
ou 132 colunas, etc. 

E reparem que estamos a ser sim¬ 
plistas. Já imaginaram se cada placa 
que surgisse no mercado tivesse um 
número diferente de colunas? Ou, sen¬ 
do mais realista, mesmo que hoje os 
ecrãs mais viáveis comercialmente 
("baratos”) sejam de 43 linhas x 80 
colunas, quem nos diz que o futuro não 
nos trará uma tecnologia completamen¬ 
te nova? Por exemplo, uma tecnologia 
que suporte num ecrã diversos 
tamanhos de fontes em hardware, com 
uma resolução programável pelo utili¬ 
zador que poderia chegar até 200x200 
caracteres?! 

Não seria interessante, por exemplo, 
se o utilizador pudesse dispôr de um 
suporte integrado, e já em estado de 
funcionamento, no seu software e no 
próprio dia em que o produto fosse 
anunciado? Não seria bom se, ainda por 
cima, este suporte fosse compatível 
com os standards actuais e fosse tão 
fácil de implementar (ou mesmo mais 
fácil) que o método implementado atra¬ 
vés de valores permanentes inseridos 
no programa? 

Por tudo isto, decidimos apresentar 
neste artigo um método para suporte de 
tamanhos de ecrãs variáveis em diver¬ 
sas aplicações. As técnicas utilizadas 
respeitam os standards incluídos no 
manual “Enhanced Graphics Adapter 


Technical Manual”, e trabalham sob 
qualquer versão do MS-DOS utilizando 
uma das placas standard da IBM (CGA, 
MDA, EGA, VGA), bem como qualquer 
outra que respeite a regra simples de 
manutenção das respectivas variáveis 
"NumColumns” no ROM BIOS IBM, e 
“BottomLine” no endereço utilizado pelo 
ROM BIOS da EGA. 

Antes de fazer esta descrição, deve¬ 
mos, no entanto, fazer uma pequena 
observação. Com o presente artigo, 
não pretendemos convencer os leitores 
que este standard é o standard ideal. 
Pensamos mesmo que é um mau stan¬ 
dard e que se poderia fazer bastante 
melhor. Mas, não fomos nós que o 
criámos; nós apenas nos limitamos a 
falar sobre ele. 

Entrando no que interessa, talvez 
seja importante referir que na realidade 
não sabemos porque é que NumCo¬ 
lumns é uma palavra e BottomLine um 
byte. Por outro lado, e em relação às 
mesmas variáveis, também não sabe¬ 
mos bem porque é que NumColumn 
possui um valor situado entre 1 e n, e 
BottomLine entre 0 e (n-1). Isto não 
cabe na nossa jurisdição. Apenas sabe¬ 
mos que é assim e como trabalhar esíes 
factos. E isso, é o que nos interessa 
saber. 

DETALHES 

Ora bem, suponhamos que temos 
um programa que vai enviar bastante 
informação para o ecrã. Podem ser 
algumas janelas que queiramos mover 
pelo ecrã. Ou então muito texto. Para 
todos os efeitos, vamos querer utilizar 
todas as linhas e colunas do ecrã que 
pudermos. Aqui vai o que é preciso para 
isso: 

Primeiro - não torne as rotinas depen¬ 


dentes de coisa alguma ! Nem mesmo 
os limites dos arrays. Se tiver algum 
array que esteja dependente da dimen¬ 
são do ecrã, enderece-o no início da 
execução do utilitário (e, esteja mesmo 
preparado para lhe alterar a dimensão). 
Isto não é tão difícil quanto parece. Em 
vez de pôr 25’s (e 80’s) no programa, 
basta que referencie uma variável. 

Que variável? BottomLine, claro. 
BottomLine é um byte guardado na 
RAM do BIOS EGA em 0040:0084h, e 
está fixado para o número de linhas de 
ecrã, menos uma. Assim, se o ecrã tiver 
43 linhas, ele indicará 42; 65 significa 
66, etc... Muitas vezes o “-1 ” é precisa¬ 
mente aquilo que se pretende. Assim, 
declare o BottomLine como uma variá¬ 
vel no seu programa e use-a em vez 
duma constante (Ver os exemplos na 
fig.l). 

O conteúdo da BottomLine é também 
devolvido (em conjunto com outras coi¬ 
sas) pela chamada INT 10h do BIOS 
EGA, função 1130h. 

Poderá também tentar ver aqui a 
dimensão do ecrã. Contudo, muitas 
placas, cujos fabricantes pretendem 
que não sejam confundidas com uma 
EGA, não implementam esta chamada. 
(Por outro lado, pode haver algumas 
placas que a implementam, mas já não 
a própria variável BottomLine em 40:84! 
Talvez devam verificar ambas.7.). 

Há, no entanto, umaexcepçãoü Uma 
vez que BottomLine só comecou a exis¬ 
tir com a EGA, as placas mais antigas 
não guardam nada neste endereço (e 
também não implementam a função 
1130h). Se este for o caso, BottomLine 
será igual a 0. Verifiquem esta condição 
e alterem o 0 para 24. 

E o que fazer em relação aos diversos 
tamanhos de colunas? É fácil. NumCo- 
lumm é guardado na palavra em 
0040:004h, e é também devolvido pela 
chamada do ROM BIOS “GetVideoMo- 
de”, INT 10h, função OFh. O NumColu¬ 
mns está no formato 1 - n (ex.: se 
trabalharmos com um monitor de 80 
colunas, NumColumns = 80). NumColu- 
ms era suportado mesmo no original 
ROM BIOS da IBM, por isso, deve ser 
fixado correctamente, qualquer que 
seja o tipo de placa instalada. 

Agora já sabemos a dimensão do 
ecrã. Mas, onde é que ele se encontra? 

Normalmente, as placas-video com 
pretensão a CGA ou MDA de grande 
dimensão, utilizarão os mesmos valo¬ 
res dos modos que são usados pelos 
seus irmãos mais pequenos. Faça 
apenas INT 10h, função OFh; se o modo 
devolvido for 7, o buffer de video está no 
endereço B0000. Se se tratar de outro 
modo, estará, provavelmente, em 
B8000. 
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PROGRAMAS 


Excepção a esta regra são algumas 
placas menos comuns como a MDS 
Genius, em que os modos 8 e 9 são 
modos B000Ó de 66 linhas. Reparem 
que não estamos a levar em conta a 
utilização de mais páginas de display, 
mas só a página 0. Por isso, se quise¬ 
rem dedicar-se a esse campo,(nunca 
sentimos necessidade disso) façam-no 
por vossa conta e risco. 

Mais uma coisa ainda. Algumas pla¬ 
cas de video passam para 25 linhas 
sempre que fizerem uma alteração do 
modo gráfico utilizado (INT 10h, functi- 
on 0), por essa razão, só devem alterar 
o modo video quando for absolutamen¬ 
te necessário. Para bem do utilizador é 
de supor que quem quer que esteja a 
fazer correr o vosso programa tenha 
uma preferência pelo modo de video 
que está a utilizar quando o fizer. Por¬ 
tanto, não estrague uma coisa boa. 


COISAS A EVITAR 

Não faça ‘verificações de compatibi¬ 
lidade’ massivas para saber se a placa 
de video instalada pode visualizar o 
número de linhas indicado em Bottom- 
Line. Se a placa não os pudesse visua¬ 
lizar, o valor de BottomLine não teria 
sido fixado logo à partida. 

Além disso, não deve, por exemplo, 
fazer uma verificação a um equipamen¬ 
to VGA e recusar a seguir a visualização 
de 50 linhas, só porque não consegue 
encontrar o registo da paleta, ou qual¬ 
quer coisa deste estilo. Acreditem no 
que diz o BIOS, ele sabe o que faz. 

Se não tiver sido fixado um tamanho 
de ecrã específico, pode fazer algumas 
verificações para procurar outras pla¬ 
cas que não suportam este standard 
(por exemplo, o caso da MDS Genius). 
Só se deve seguir este procedimento 
quando o método standard não tenha 
conseguido revelar um tamanho de 
ecrã que não seja o de 80 x 25. 

Nunca deve pressupor-se um tama¬ 
nho fixo de ecrã com base num coman¬ 
do de modo enviado ao BIOS do video. 
Por exemplo, não execute uma INT 10h, 
função 1112h (estabelecer texto mono 
de 43 linhas em placa EGA), assumindo 
de seguida que o ecrã passou a ter 43 
linhas. 

Neste exemplo, algumas placas não 
suportam esta função, por isso o tama¬ 
nho do ecrã permaneceria no seu valor 
anterior. 

Poderiam ser visualizadas ainda 
mais linhas com outras placas. Na rea¬ 
lidade, a função 1112h significa “utilize 
caracteres de 8 pontos”. A única razão 
pela qual acaba por ser 43 linhas na 
EGA é porque a EGA faz um scanning 





Figura 2 - Alteração do Turbo Pascal 3.02 permitindo uma 
maior Window() 


FIGURA 2 

Odebug turbo. com 


-el6B 
ssss:016B 

19 42<enter> 

; se os originais não 

ssss:016C 

<enter> 

corresponderem 
; a sua» versão é diferente 

-e38F 
ssss:038F 

19 42<enter> 

Não execute a alteração 

; primeiro a alteração de 

ssss:0390 

<enter> 

GotoXY() 

; segundo a de Window () 

-W<enter> 

-q<enter> 





de 350 linhas, e 350/8 = 43.75. Numa 
placa com 400 linhas de scan (VGA), 
significaria 50 linhas de texto, e numa 
com 1024 linhas significaria 128. Se 
tiver de utilizar estas funções, deverá 
chamar a função e depois verificar de 
novo a dimensão guardada na Bottom¬ 
Line. Deste modo obter-se-á sempre a 
resposta correcta, mesmo depois da 
IBM anunciar o standard EVGA+/2 
Modelo 71, ou qualquer outra coisa do 
género. 

A BOTTOMLINE 

Para determinar o número de colu¬ 
nas, verifiquem a palavra situada em 
0040:004Ah ou utilizem a INT 10h, fun¬ 
ção OFh e usem o valor devolvido em AH 
( não devemos esquecer que é apenas 
um byte!). 

Para determinar o número de linhas, 
verifiquem o valor do byte contido em 
0040:0084h e adicionem-lhe 1 ou utili¬ 
zem INT 10h, função 1130h, e adicio¬ 
nem 1 ao registo DL. Se ambos estes 
números forem 0, devem pressupÔr 
tratar-se de um modo gráfico de 25 
linhas. 

Para determinar o início do buffer de 
video, devem executar uma INT 10h, 
função OFh. Se o valor (devolvido em 
AL) for 7, então o buffer começa em 
B0000; se for um outro qualquer este 
começa em B8000. 

Apenas devem procurar as placas 
especiais se estes testes não conse¬ 
guirem encontrar os valores “normais". 

Verifiquem de novo a dimensão de 
ecrã e o modo video de cada vez que o 


programa fizer uma fixação do modo ou 
executar outro programa ou uma rotina 
de biblioteca que modifique o ecrã. Isto 
porque, entretanto, ele pode ter muda¬ 
do. Se alguém quiser passar de um 
modo 43 linhas policromático para 66 
linhas mono saindo para o DOS e utili¬ 
zando um comando MODE (ou outro 
semelhante), devem permiti-lo utilizan¬ 
do posteriormente os valores utilizados 
na aplicação desenvolvida. 

Cada vez mais os utilizadores vão 
dispondo de ecrãs de grandes dimen¬ 
sões, por isso procuramos software que 
os suporte (senão para que é que 
compramos estes ecrãs???). 

Indicamos, a seguir, uma lista provi¬ 
sória de programas que suportam ecrãs 
de grandes dimensões (pelo menos até 
66 x 80): 

Brief 2.0 
Wordstar 4.0 
WordPerfect 4.2 
Turbo Pascal 3.02 
(utilizar alteração apre¬ 
sentada na Fig.2) 

Para além desta pequena lista, há 
ainda um conjunto de outros programas 
que operam em modos de ecrã de gran¬ 
de dimensão, mas apenas com algu¬ 
mas placas específicas (p.ex.,Microsoft 
WORD), facto que nos leva a esquecê- 
los completamente neste espaço que 
dedicamos essencialmente aos muitos 
leitores que desenvolvem as suas pró¬ 
prias aplicações, dos quais desde já 
esperamos grandes programas, para 
grandes ecrãs. 
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A MELHOR CARACTERÍSTICA DESTES EQUIPAMENTOS DE 
PRESTÍGIO MUNDIAL É 0 SERVIÇO PERSONALIZADO E 
SIMPÁTICO PRESTADO PELOS TÉCNICOS COMPETENTES DA 
INFORTEJO, LDA. 

MINOLTA 

FOTOCOPIADORES 


[EME 

COMPUTADORES 


1*1 Pitney Bowes 

NFtRTEJO 

TELEFAX 

txother 

MÁQUINAS DE 

COMÉRCIO E ASSISTÊNCIA DE 
EQUIPAMENTOS DE ESCRITÓRIO, LDA. 

ESCREVER 

ELECTRÓNICAS 

PRAC. CIDADE DE BADAJOZ, L - 7, R/C, DT.° TR. 

TELEE 27746 - FAX 29647 

2000 SANTARÉM 

ASSISTÊNCIA TÉCNICA 



Oh 

mlDA 

TA 

Z / INFORMÁTICA E COMPUTADORES 

T. 63523 

COMPUTADORES 

PERIFÉRICOS • CONSUMÍVEIS 

AMSTRAD EPSON 

COMMODORE AMIGA SEYKOSHA 

ZENITH UCHIDA 

PHILIPS 

FUJI DISQUETES 
VERBATIM/DISQUETES ! 
ACCODATA 

S. C. BRASILIA/PORTO 
























INTERNACIONAL 


CEBIT/89 

A maior feira europeia 


De 8 a 1 5 de Março ocorreu em Hannover mais uma edição daquela que 
podemos considerar indubitavelmente a maior feira europeia de equipamen¬ 
tos de escritório, informação e telecomunicações —a CEBIT. Nos 14 
pavilhões alocados ao certame, podiam-se encontrar 3.125 expositores 
dos mais variados países (37 no total), desde a Austrália à Finlândia, desde 
o Canadá à Singapura. 


A tão grande deversificação de 
expositores correspondeu um pú¬ 
blico interessado, estimando-se que 
o número de visitantes tenha sido 
superior a 500.000. 

AS NOVIDADES 

Se, correndo o mundo que foi a 
CEBIT'89, perguntássemos em cada 
stand se tinham ''novidades'' em 
exposição, é óbvio que a resposta 
seria, quase sempre, "pois claro, 
"blá, blá, blá, ...blá, blá, blá... 
Então, se transcrevêssemos tudo o 
que nos seria dito, não chegaria uma 
dezena de edições da AM para 
suportar tanta "informação". 

No entanto, na opinião da AM, não 
se pode caracterizar este certame 
pelo aparecimento de novidades 
propriamente ditas. Já vai o tempo 
em que os fabricantes escolhiam as 
feiras para lançamento dos seus 
produtos. O ritmo da evolução da 
Informática nos nossos dias já não 
permite veleidades deste tipo. 

Assim, não vamos aqui listar os 
produtos considerados como 
"novos" na CEBIT, vamo-nos referir 
somente aquilo que poderíamos 
chamar "algumas curiosidades" 


AKKOR-O PRIMEIRO 
"CLONE” MACINTOSH 

Não era a dimensão do stand nem, 
tão pouco, a sua pompa. De 
qualquer forma, o pequeno stand da 
JONATHAN tornou-se ponto obriga¬ 
tório de passagem para todos os 
visitantes da CEBIT. 

E o que é que lá acontecia? Nada 
mais nada menos do que a primeira 
apresentação do primeiro clone do 
Macintosh. O equipamento, fabricado 
em TAIWAN pela empresa AKKORD, 
apresentava-se com um aspecto 
externo que nada o distinguia de um 
vulgar PC. No entanto, após uma 
observação mais atenta, poder-se-ía 
constatar que o equipamento em 
presença era totalmente compatível 
com os Macs e a AM não foi 
estranha a todo um conjunto de 
ensaios efectuados com software 
especialmente desenvolvido para os 
Macintosh. E que, efectivamente, 
corria... 

Indiagados os promotores do equipa¬ 
mento sobre os aspectos legais 
relativos à sua concepção e desen¬ 
volvimento, foi-nos dito que o mode¬ 
lo em demonstração tinha instaladas 
ROMS do Macintosh para salvaguarda 
de qualquer Copyright, embora todos 
os periféricos e cartas tivessem sido 


especialmente concebidos para o 
referido compatível. Quanto à data 
da sua comercialização, a AM pouco 
conseguiu saber, a não ser o facto 
de tudo estar dependente de acordos 
que a AKKORD pretendia negociar 
com a APPLE para que o produto 
fosse lançado no mercado de forma 
a não criar dúvidas em relação à 
legalidade da sua concepção. 


ALCATEL —SISTEMA DE 
IMPRESSÃO DIGITAL 

Este fabricante apresentava um 
recém-criado sistema de impressão 
conectável a PC compatíveis e 
destinado a apoiar aplicações DTP 
(desk-top publishing) com capaci¬ 
dade de impressão até 150 cópias 
por minuto. 

O sistema de impressão digital 
SP-9000 usa uma tecnologia tipo fax 
para obtenção do master que a 
seguir é usado para a tiragem de 
cópias para papel, de formato até 
A3, com uma resolução de 400 dpi. 
A impressora SP-9000 é conectada 
ao PC através da interface SP-9000 
DTP link que lhe permite a edição 
dos documentos produzidos no PC. 
A ALCATEL diz que o sistema 
permite combinar a economia de 
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uma impressora com as caracterís¬ 
ticas de uma foto-copiadora, o que 
permite ao utilizador obter cópias de 
qualidade em papel comum a uma 
velocidade muito superior à de uma 
laser e com um custo inferior. 


STORAGE DIMENSIONS 
-DISCO DE 651MB P/O 
SEU PC 

Nos tempos em que o desktop pu- 
blishing ganha cada vez mais terre¬ 
no no mercado da Informática, a re¬ 
ferência à unidade de memória de 
massa de grande capacidade tem ca¬ 
da vez mais interesse. 

Numa unidade simples a STORAGE 
DIMENSIONS apresentava um disco 
com capacidade de 651 MB, mais ou 
menos o dobro daquilo que era tido 
como possível para discos de 5” 
1/4. 

Este sistema de armazenamento era 
apresentado em duas versões: uma 
interna e outra externa com um dri¬ 
ve capaz de assegurar uma velocida¬ 
de de transferência de 15 Megabits, 
cerca de três vezes superior à dos 
drive AT. 


TEX PERT-DO JORNAL 
PI UM FICHEIRO TIPO 
MS WORD 

A CTA de Barcelona apresentava um 
software que representa mais um 
passo na introdução da Informática 
nas artes gráficas. 

O TEX PERT é uma aplicação que 
permite a transformação de qualquer 
texto, lido por um scanner, no for¬ 
mato Mac Write ou MS Word, inde¬ 
pendentemente das fontes em que 
esteja apresentado e da disposição 
que utilize (texto corrido, colunas 
múltiplas, etc). 

Para já, o programa só trabalha em 
ambiente Macintosh, mas foi-nos in¬ 
formado que ainda no corrente ano 
sairia uma nova versão para IBM 
compatíveis. 



EXPOSITORES 

PAÍS 

N.° EXP. 

PAÍS 

N.° EXP. 

Alemanha 


Grécia 

10 

(R. Democ.) 

1 

Flolanda 

48 

Alemanha 
(R. Federal) 

1962 

Hong-Kong 

30 

Áustria 

Austrália 

16 

13 

Hungria 

India 

5 

70 

Bélgica 

42 

Irlanda 

1 

Brasil 

2 

Israel 

22 

Bulgária 

3 

Itália 

17 

Canadá 

25 

Japão 

52 

Checoslováquia 

2 

Jugoslávia 

1 

China (Rep. Pop.) 

6 

Liechtenstein 

1 

China (Taiwan) 

154 

Luxemburgo 

9 

Coreia do Sul 

2 

Malária 

10 

Dinamarca 

16 

Noruega 

6 

Espanha 

30 

Polónia 

1 

EUA 

199 

Singapura 

25 

Finlândia 

5 

Suécia 

23 

França 

69 

Suiça 

84 

Grã-Bretanha 

131 

Turquia 

2 
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A AMSTRAD NA CEBIT 

Tal como os outros fabricantes, 
também a AMSTRAD não apresentou 
grandes novidades na CEBIT. Pratica¬ 
mente toda a gama estava exposta e 
obviamente, o maior destaque ia para 
os PC da série 2000. 

Para além de vários sistemas em 
MS-DOS, apareciam também solu¬ 
ções instaladas sob UNIX e sob 
ÓS/2, mais para mostrar que estes 
sistemas operativos também correm 
na nova série 2000 do que pelo seu 
próprio interesse. 

Oúnico produto que apareceu 
como novidade para AM foi um PPC 
512 — 20 HD, dado conhecermos este 
modelo com um ou dois drives de 
diskettes. 

Foi-nos explicado que se tratava de 
um modelo desenvolvido exclusiva¬ 
mente para o mercado alemão pela 
filial da AMSTRAD neste país. 

Em termos de aparência e dimen¬ 
são do stand, limitamo-nos a dizer 
que era digno para a marca, muito no 
estilo do que já haviamos visto no 
PCW show em Londres. 


FINALMENTE... 

Não temos qualquer dúvida em 
afirmar que a CEBIT 89 foi uma 
grande feira e que teve uma afluência 
como nunca tinhamos visto em qual¬ 
quer certame do mesmo tipo. 

No entanto, regressamos com um 
certo sentimento de frustação. Pou¬ 
cas coisas novas existiam realmente, 
o que demonstra que os expositores: 

— Cada vez menos se interessam em 
fazer o lançamento dos seus pro¬ 
dutos em feiras; 

— Cada vez mais aparecem com os 
produtos «corriqueiros», alguns 
deles mesmo em fim de carreira, o 
que indicaria uma vontade de fazer 
sair stocks em detrimento da pro¬ 
moção de novidades. 

Daqui se conclui que as feiras se 
estão a virar mais para o grande 
público — os consumidores finais — 
em prejuízo dos profissionais. 





illiil 
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0 PÓ E A HUMIDADE CORROEM 
0 SEU COMPUTADOR. DEFENDA 0 
SEU INVESTIMENTO UTILIZANDO 
CAPAS DE PROTECCÃO APROPRIADAS. 
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Shopping Cacém, loja 2.42 Telef. 

Cacém 
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MERCADO INGLÊS 

AMSTRAD PC 1640 MANTÉM LIDERANÇA 

a 

AMSTRAD PC 2086 JÁ EM 2.° LUGAR 


O Amstrad PC 1 640 manteve, no fi¬ 
nal de 1988, a sua posição do mi¬ 
crocomputador mais vendido em 
Inglaterra —revelou um estudo da 
"Romtec Review". 

A grande novidade é a entrada ful¬ 
gurante do Amstrad PC 2086 para o 
segundo lugar no mercado inglês 
(ver quadro comparativo). 


No que diz respeito a quotas de 
mercado o estudo da "Romtec Re¬ 
view" revela novo crescimento da 
Amstrad, que agora se encontra ape¬ 
nas a dois pontos percentuais da 
IBM. 

Posição de destaque ainda para a 
Amstrad que liderava o mercado dos 
portáteis. 


COMPUTADORES MAIS VENDIDOS 

EM INGLATERRA 

OUTUBRO/88 

1 

AMSTRAD PC 1640 

2 

IBM PS/30 

3 

IBM PS/50Z 

4 

COMPAQ DESKPRO 286 

5 

APPLE MACSE 

6 

APRICOT XENI 

7 

IBM PS/50 

8 

COMPAQ DESKPRO 386 

9 

IBM PS/60 

10 

IBM PC/AT 

DEZEMBRO/88 

1 

AMSTRAD PC 1640 

2 

AMSTRAD PC 2086 

3 

IBM PS/50 

4 

IBM PS/50Z 

5 

IBM PS/30 

6 

COMPAQ DESKPRO 286 

7 

AMSTRAD PC 1512 

8 

COMPAQ DESKPRO SX 

9 

IBM PS/60 

10 

COMPAQ 386/20E 


BORGES & CANHOTO, LDA, 
FARO 

HARDWARE: PC, AT, 386 

SOFTWARE: GESTÃO COMERCIAL 
CONTABILIDADE 
SECRETARIADO 
APOIO A GESTÃO, ETC 

SERVIÇOS: MANUTENÇÃO HARDWARE 
REPARAÇÕES 
APLICAÇÕES ESPECÍFICAS 
FORMAÇÃO PROFISSIONAL 


VISITE-NOS E PEÇA DEMONSTRAÇÕES 
NAS NOSSAS NOVAS INSTALAÇÕES 


PR. ALEXANDRE HERCULANO, N.° 22 
EDIFÍCIO ALAGOA, 4.° D 


INGLATERRA (Quota de Mercado) 

Dezembro/88 



13% AP RI 0076% 

6 % 


Fonte: Romtec Review 
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EMPRESAS 


JOSÉ MIGUEL (SEPRIN INFORMÁTICA) 

"TODOS OS NOSSOS CLIENTES 
SÃO CLIENTES PREFERENCIAIS” 


Com o aparecimento da série 2000 vamos investir na área das PME's com 
produtos de alta relação preço/qualidade—afirmou José Miguel (Seprin) em 
entrevista à "AMSTRAD MAGAZINE''. 

A entrevista foi realizada no decorrer da apresentação, em Coimbra, da Série 
AMSTRAD PC 2000. 


A.M.—Como decorreu a sessão de 
apresentação? 

J.M. —Esta sessão de apresentação foi 
dividida em duas partes distintas: a 1 a 
decorreu das 14 às 1 7.30 h e foi aberta 
a todas as pessoas. Como é hábito nesta 
cidade a afluência principal registou-se ao 
nível da juventude com os estudantes 
universitários em pleno destaque. A 2? 
parte foi dedicada aos nossos clientes 
que já tinham encomendado máquinas 
da nova gama e às entidades oficiais que 
sempre nos apoiaram pela nossa rectidão 
de actuação. 

Nesta ? parte foi feita a exposição dos 
objectivos que levaram à criação dos 
CPA's com passagem de vídeo sobre a 
nova gama. 

Do decorreu desta sessão ficou a certeza 
que a partir de agora os utilizadores de 
equipamentos informáticos contam com 
um centro profissional para os apoiar em 
todos os problemas que lhes possam 
surgir. 


A.M. —Em que medida a série 
profissional 2000 vai permitir alargar a 
vossa área de negócio? 

J.M. —O aparecimento da série 2000 é 
para a nossa firma muito importante, na 
medida em que nos vai permitir investir 
na área das PME's com produtos com 
alta relação preço/qualidade. Para além 
desta área, o aparecimento desta nova 
série torna-nos competitivos com as 
marcas que praticam descontos de 40% 
na área do ensino. Como exemplo basta 
referir que não há desconto de ensino 
que possa atingir, a nível de qualidade, 
o preço do PC2086 HD30. No entanto 
é de referir que a nossa firma continua 
a praticar por nossa conta e risco um 
desconto especial para os equipamentos 
vendidos para o ensino. Resumindo a 
série 2000 vai-nos permitir uma maior 
penetração na área das PME's e manter 
a liderança no ensino. 

A.M. —Como podem os centros 


profissionais Amstrad contribuir para 
um cada vez maior grau de informa¬ 
tização das empresas da zona centro? 

J.M.— A zona centro era até há pouco 
tempo uma zona pouco informatizada. 
Esta situação derivava de alguns 
factores, como sejam: 

—Coimbra é uma cidade eminentemente 
universitária. 

—A indústria nesta zona nunca teve 
grandes incentivos quer a nível local quer 
a nível central. Para alterar esta situação 
foi preponderante a adesão à CEE com 
os incentivos financeiros daí decorrentes. 
A formação de novas empresas em que 
os empresários, na sua grande maioria, 
tinham idades inferiores a 35 anos e 
frequência universitária veio trazer uma 
grande apetência pela informática. Como 
consequência veio a informatização das 
"velhas” empresas que não quiseram 
atrasar-se. O aspecto negativo desta 
situação foi o aparecimento de casas de 
informática que apenas sabem "vender" 
mas desconhecem, ou preferem des¬ 
conhecer, a assistência pós venda, do 
que resulta descrédito para a indústria 
informática. 

O contributo dos CPA's será o de 
"honestizar" o comércio da informática, 
através de um efectivo apoio pós-venda 
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UM CPA QUE APOSTA 
NA QUALIDADE DOS SERVIÇOS 


de modo a que os compradores fiquem 
sabendo que o comércio da informática 
não passa apenas pelos "vendedores de 
computadores" 

A.M. — No caso concreto do CPA 
Seprin, como vão actuar? 

J.M. — No nosso caso iremos actuar 
como até aqui: qualquer nosso cliente é 
e ser sempre o nosso cliente preferencial. 
Quer nos adquira um PC 1512 SD ou um 
PC 2386 ele pode ter a certeza de ter 
sempre um técnico/amigo à sua inteira 
disposição. Esta política está agora muito 
mais reforçada contando nós com o 
apoio da Cominfor. 


A SEPRIN (COIMBRA) 


A Seprin nasceu em 1981, tendo 
como objectivo primordial a elabora¬ 
ção de projectos de construção civil. 
Devido à crise deste sector, os 
esforços voltaram-se para a área 
informática: concepção de software 
de engenharia civil e comercializa¬ 
ção de equipamentos informáticos. 
Hoje, a sua aposta é a prestação de 
um serviço de qualidade nos 
mercados em que actua: PME'S, 


ensino, organismos oficiais e 
profissões liberais. 

O seu volume de vendas em 1987 
atingiu os 100 mil contos, tendo 
crescido consideravelmente no ano 
passado (150 mil contos). 

A SEPRIN é um dos revendedores 
autorizados AMSTRAD e foi-lhe 
recentemente concedido o estatuto 
de CPA—Centro profissional da 
Amstrad. 



A NOSSA EXPERIÊNCIA 
É A SUA SEGURANÇA 


ENGENHARIA INDUSTRIAL & PLANEAMENTO ELECTRÓNICO. LDA. 
Rua Almeida e Sousa, 33, r/c Esq. 

Telefs. 69 03 18-68 12 43 —Telex 65701 -P —Fax n.° 67 85 43 
1300 LISBOA - PORTUGAL 


T0D0 0 TIPO 
DE DISCOS 
DUROS E 
"FILE CARDS" 
PARA 0 SEU 
COMPUTADOR 


j §.MiniCr*riKn 
i ui ai —^v_i iuv^ 


: Sduticr.c for Data Storage 
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EMPRESAS 


SOPSI E EFACEC ASSINAM ACORDO PARA 
COMERCIALIZAÇÃO DO SISTEMA ROBLAS 

a 



A SOPSI e a EFACEC acabam 
de assinar um acordo que 
permite às empresas do gru¬ 
po da primeira comercializar, 
em exclusivo, o sistema RO¬ 
BLAS que se destina funda¬ 
mentalmente a apoiar as ac- 
tividades de risco e corte na 
indústria de confecções. A 
SOPSI escolheu a LUSI- 
COMP e os departamentos 
profissionais SOCARTEL pa¬ 
ra divulgarem o ROBLAS, in¬ 
dependentemente de estar a 
criar uma empresa de servi¬ 
ços e sistemas industriais pa¬ 
ra apoio dos clientes do RO¬ 
BLAS nos aspectos técnicos 
e de formação. 

Baseando-se num computa¬ 
dor central, o sistema RO¬ 
BLAS proporciona um am¬ 
biente integrado que envolve 
a criação dos moldes de ba¬ 
se, a graduação (cálculo dos 
vários tamanhos e o risco (ou 
encaixe optimizado em ter¬ 
mos de desperdício minimo 
de tecido. 

0 sistema é operado a partir 
de um a três terminais gráfi¬ 
cos de alta resolução, de cor 
ou monocromáticos, e inte¬ 
gra uma mesa digitalizadora, 
para introdução das formas 
na escala de 1:1, e um orgão 
de saída, especialmente de¬ 
senhado para o ROBLAS, 
que pode desempenhar si¬ 
multaneamente as funções 
de plotter e de mesa de cor¬ 
te por laser. 

Basicamente, o sistema RO¬ 
BLAS integra três unidades: 

— Mesa digitalizadora, para 
introdução dos moldes, em 
tamanho real ou à escala; 

— Computador central em 
que está instalado todo o 
CAD (Computer Aided De¬ 
sign), concepção assistida 
por computador do sistema 
e que controla os periféricos 


de entrada e saída; 

— Plotter/mesa de corte, es¬ 
pecialmente desenvolvido 
para este fim, destinado ao 
traçado das formas ou dos 
riscos em papel, permitindo 
ainda o recorte dos moldes 
em cartolina ou mesmo o 
corte do tecido. 

O CAD proporciona uma 
adaptação fácil do operador 
—a sua concepção com me¬ 
nus pop-up e pull-down per¬ 
mite ao utilizador uma apren¬ 
dizagem quase imediata de 
todos os comandos e sua uti¬ 
lização, sem necessidade de 
recorrer à leitura de longos 
manuais. Está integrado num 
ambiente com janelas, per¬ 
mitindo ter a funcionar no 
mesmo ecrã várias aplica¬ 
ções em simultaneidade. 

0 editor FORMA permite a 
edição das chapas de base, 
introduzindo-as pela mesa di¬ 
gitalizadora ou (re)criando-as 
no computador, bem como 
toda a função de graduação. 
Dispõe, naturalmente, de di¬ 
versos auxiliares, possibili¬ 


tando alterações de escala, 
rotações, translações, etc. 
0 editor PUZZLE é funda¬ 
mentalmente a ferramenta 
destinada ao encaixe, que 
pode ser automático ou 
manual—esta facilidade per¬ 
mite, por exemplo, deixar o 
sistema a construir encaixes 
automáticos durante a noite 
para eventual retoque por 
um operador experiente no 
dia seguinte. 

0 sistema ROBLAS nasceu 
em Portugal para dar uma 
resposta cabal à necessida¬ 
de de modernização e cres¬ 
cimento que a indústria de 
confecções tem vindo a ex¬ 
perimentar, possibilitando- 
-Ihe não só um aumento de 
produtividade, mas também 
uma sensivel melhoria de 
qualidade técnica e comer¬ 
cial, rentabilidade e conse¬ 
quente competitividade nos 
mercados internacionais. 

0 ROBLAS oferece ao pro- 
jectista novas ferramentas de 
trabalho, integrando todas as 
fases, desde a concepção e 


desenho de moldes de ves¬ 
tuário até ao corte do tecido. 
O sistema trabalha sob UNIX 
e será suportado pelo AMS- 
TRAD PC 2386 com 4 MB de 
memória central para as con¬ 
figurações de 2 postos de 
trabalho. A capacidade em 
disco será decidida conforme 
as necessidades dos utiliza¬ 
dores, podendo ir dos 65 aos 
130 MB. 

O sistema ROBLAS foi de¬ 
senvolvido no âmbito de um 
Contrato Desenvolvimento 
Industrial com o Ministério 
da Indústria e Energia por um 
consórcio integrando as se¬ 
guintes entidades: UBI (Uni¬ 
versidade da Beira Interior, 
Covilhã), EID (Empresa de In¬ 
vestigação e Desenvolvimen¬ 
to de Electrónica, SA), LNE- 
Tl (Laboratório Nacional de 
Engenharia e Tecnologia In¬ 
dustrial) e EFACEC, tendo fi¬ 
cado esta última sua proprie¬ 
tária e, nessa base, ter feito 
o acordo de comercialização 
com a SOPSI que temos vin¬ 
do a citar. 
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FREE-SOFT 


PROGRAMAS DISPONÍVEIS 

VER DESCRIÇÃO NOS NÚMEROS ANTERIORES 
DA AMSTRAD MAGAZINE 


FS-101 

FS-102 

FS-103 

FS-104 

FS-105 

FS-106 

FS-107 

FS-108 

FS-109 

FS-110 

FS-111 

FS-112 

FS-113 

FS-114 

FS-115 

FS-116 

FS-117 

FS-118 

FS-119 

FS-120 

FS-121 

FS-122 

FS-123 

FS-124 

FS-125 

FS-126 

FS-127 

FS-128 


O BUGS 
O PINBALL 
O PITFALL 

◦ POKER MACHINE 
O PYRAMID 

O RAIN 
O ROCKETS 
O XWING 

◦ MAHJONG 
O MATH PAK 
O EPISTAT 

◦ MAHJONG 

— para ecrã EGA 
O ALLMAC 

◦ ICON MAKER 
O ALTAMIRA 

— editor gráfico 
O DRAW POKER 

◦ PIANO MAN 

O UTILITÁRIOS PARA 
ECRÃS EGA 
O WORLD 
O MUSIC 
O PAINT 
O FXMATRIX 

◦ BIORRITMO 
VERSÃO 3.0 

O TAROT 
O BLACK JACK 

◦ GIN RUMMY 
O EDWIN 

O MONOPOLY 


FS-129 

O 

FS-130 

O 

FS-131 

O 

FS-132 

O 

FS-133 

O 

FS-134 

O 

FS-135 

O 

FS-136 

O 

FS-137 

O 

FS-138 

O 

FS-139 

O 

FS-140 

O 

FS-141 

O 

FS-142 

O 

FS-143 

o 

FS-144 

o 

FD-901 

PI 


PESSOAL 


FD-902 


E CP/M 2.2 


PARA CARTA 
GRÁFICA HERCULES 
STAR-SAK 
PC-SIZE 
FORGET-IT 
PC-PLAN 
PC-EMS 
PC-MULTI 
PC-PITMAN 
O TRIVIA MACHINE 





























































































































FREE-SOFT 


O FBED é urn ® gfo conteúdo dos s 
1 me permite edrt* o ^ n ormatjca pf0 . 

A ctua\mente ^ sce nte a g T00L S, etc.)• 

1 vindo a notar um oRTO N, finear 

dutos deste tipo de . se dizerjjjem 

andaoM 5 ; seu8 ficheiros 1 
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YAHTZEE 

Existem jogos de cartas e jogos de tabuleiro, mas 
este jogo é um jogo de dados excepcional. É uma 
versão melhorada, mas com toda a estratégia do 
original. 

REF. F.S. 147 
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CLUBE AM 


aprenda você 
mesmo... 



D BASE III m -LOTUS 123 - PC/MS-DOS 



VOCÊ MESMO 



VOCÊ MESMO 



VOCÊ MESMO 


PC/MS-DOS 

88 __ 


LOTUS 1-2-3 

□El 

BB ____ 


dBASE III Plus 

□s 

BB _ ___ 


A QUALQUER HORA, EM QUALQUER LUGAR... FÁCIL PARA TODOS 


Divididos em vários módulos, os cursos APRENDA VOCÊ 
MESMO tornam-se muito flexíveis. 

Acabam-se os horários rígidos. Os alunos estudam quando 
têm tempo, repetindo as lições até se familiarizarem com o 
tema. 

A aprendizagem faz-se ao ritmo individual de cada um e 
pode fazer-se em qualquer sítio onde exista um computador. 

Funcionando com os computadores mais populares, os cur¬ 
sos podem ser partilhados por várias pessoas que, assim, 
estabelecem o horário que mais lhes convém. 

Mas uma das grandes vantagens dos cursos APRENDA VOCÊ 
MESMO, é que foram especialmente concebidos para se adap¬ 
tarem aos diferentes níveis de conhecimento dos formandos. 


Como indica a própria designação APRENDA VOCÊ MESMO, 
os cursos são facilmente utilizáveis pelo próprio formando, sem 
necessidade de um instrutor. 

Basta introduzir uma disquete no computador e seguir as ins¬ 
truções visíveis no écran. Isto torna os cursos altamente aces¬ 
síveis, mesmo para as pessoas sem quaisquer conhecimentos 
de informática. 

Além disso, todo o conteúdo é apresentado em português 
não existindo, portanto, as barreiras linguísticas habituais nas 
novas tecnologias. 


CONTEÚDO 

DOS CURSOS 




• LOTUS 1-2-3 

Noções de base 

- Movimentos 

- Números e textos 

- Fórmulas e cálculos 

- Copiar 

- Guardar o trabalho 

- Janelas 

- Edição dos dados 

- Gráficos 

- Base de dados 

- Macros. 

REF. 401 


• dBASE III PLUS 

Noções sobre a base de dados 

- Introdução/Visualização/Criação/ 
Modificação 

- Busca de registos 

- índice 

- Impressão 

- A gestão de menus 

- 0 cálculo 

- A programação 

- Introdução de dados 

- Leitura de dados 

- Ordenação ref. 402 


APRENDA VOCÊ MESMO 

APRENDA VOCÊ MESMO 

APRENDA VOCÊ MESMO 


PC/MS - DOS 

LOTUS 1-2-3 

dBASE III + 


REF. 400 

REF. 401 

REF. 402 


19.900500 

19.900500 

19.900500 


(Não se esqueça de indicar o formato das disquetes 


USE POSTAL N.° 4 
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; MICROSOFT FLIGHT SIMULATOR version 3.0 ; 


Suporta todas as cartas gráficas desde CGA a VGA 



Para quem gosta de simuladores de vôo este é O 

SIMULADOR DE VÔO. 

Suportando muitas das cartas gráficas habituais nos 
PC's inclusivé a Hercules, a EGA, a VGA, e a CGA em 
visores de cristal liquido ou CRT's, o Flight Simulatorque 
neste número colocamos à disposição de todos os leitores 
foi concebido por uma das maiores softhouses da actuali- 
dade, senão mesmo a maior - a Microsoft - e é no minimo 
um simulador excelente a todos os níveis. Em termos de 


gráficos, por exemplo, para além de suportar as cartas 
gáficas já referidas e de delas extrair as capacidades que 
lhes são inactas, suporta ainda outras cartas gráficas não 
previstas na versão base mas adicionáveis através de 
drivers externos. 

A simulação que pode decorrer num de três aviões 
diferentes, escolhido pelo utilizador, pode basear-se em 
operações de descolagem, aterragem, ou vôo normal, 
sofrendo, ou não, efeitos climatéricos (chuva, vento, 
neve, etc), ou temporais (dia, fim de tarde, noite, etc.), e 
estando, ou não, condicionada a um conjunto enorme de 
outros factores, entre os quais podemos referir os vôos 
em esquadrilha, ou em perseguição, querem periodosde 
paz, quer em periodos de guerra. 

O nível de realidade da simulação e controlável pelo 
utilizador através de opção acedida por teclado, e para os 
utilizadores menos à vontade num “cock pit” existe ainda 
a possibilidade de assistir a lições de vôo sub-divididas 
por tarefas a executar. A documentação é composta por 
um enorme manual, diversos mapas, e um pequeno livro 
de "Quick Reference” (referências rápidas), apoiando de 
uma forma melhor do que excelente o jogo que se 
encontra dividido pelas duas disquetes de 5.25” que 
complementam a package. 

Para além do interesse do jogo, pensamos que é digno 
de nota o facto dele suportar e tirar proveito das cartas 
VGA, facto que, sem dúvida, o torna único no mercado 
português. 


PREÇO: 9 900$00 


REF. 330, postal 3 



Uma excelente linguagem de programação e 
um óptimo compilador de programas concebi¬ 
dos em BASICA ou GW-BASIC, o Quick BASIC 
proporciona a todos os programadores desta 
linguagem uma velocidade de processamento 
que embora não sendo tão grande como a que se 
obtém no diãlecto da mesma linguagem lançado 
pela Borland, é muito mais standard. 

Para todos os utilizadores do GW, o Quick 
BASIC só pode ser a evolução perfeita. Baseado 
num set de instruções que quase se pode con¬ 
siderar cem por cento igual ao do diãlecto GW, o 
QB traz-nos toda a velocidade de uma linguagem 
compilada, as facilidades de “debugging” co¬ 
muns aos interpretadores da mesma linguagem, 
e um completo manual de utilização, por um 
preço impossivelmente baixo!!! 


PREÇO: 15 000$00 


REF. 331, postal 3 
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LocoScript 2 


PREÇO: Elicalfe 4 530$00 REF. 201, postal 3 


PREÇO: 1 200500 


REF. 322, postal 3 


Com uma qualidade de impressão relativamente 
elevada tendo em consideração que se trata de uma 
impressora de 9 agulhas, a DMP 4000 pode distinguir- 
se actualmente como uma impressora bem sucedida 
no mercado nacional. Tal facto, constituiu uma das 
razões que nos levou a optar pela inclusão do seu 
manual de utilização, EM PORTUGUÊS, nesta secção 
da AM, procurando com isso continuar a proporcionar 
aos nossos leitores informação tão detalhada quanto 
possível, numa linguagem tão simples quanto 
possível, a um preço nitidamente impossível. 


Coberturas para computador 
AMSTRAD PC 1512 e PC 1640 


Quase quatrocentas páginas de texto, figuras, esquemas, e 
exemplos, constituem o mais completo livro em português sobre 
um processador de texto que tem arrastado centenas de pessoas 
dos teclados das máquinas de escrever para os teclados das 
modernas máquinas de processamento de texto. 

Dividido em quatro partes distintas o manual do Locoscript que 
aqui apresentamos inicia o seu passeio pelo processador de texto 
em causa, através de uma passagem pelas “Noções Básicas" e 
“Refinamentos", concluindo a dissecação do tema com as 
“Funções Avançadas" disponíveis, e complementando todas 
estas partes e informações com um detalhado, e bem 
estruturado, Apêndice, repartido por 5 assuntos diferentes. Tudo 
o que o utilizador do Locoscript 2 precisa saber para 
resolver eventuais problemas menos comuns, ou 
apenas escrever uma simples carta, pode 
encontrar-se neste manual ao cabo de meia dúzia 
de segundos de procura. 

Utilizando um conhecido slogan há algum tempo 
passado no pequeno écran podemos mesmo dizer 
que: se já possui um PCW, utiliza q Locoscript 2 e 
não possui este manual, DE QUE É QUE ESTÁ À 
ESPERA ?!! 


PREÇO: 500500 REF. 320, postal 3 


LOCOSCRIPT 2 (para PCW 9512) 
— Manual do Utilizador 
EM PORTUGUÊS 
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Coleccão 

GEM 


Your new AMSTRAD PC 1512 
is simply brilliant. 

With GEM Software 
its brilliantly simple. 


GEM WRITE 


GEM WORDCHART 


GEM DIARY 


GEM DRAW BUSINESS LIBRARY 


GEM FONT EDITOR 



GEM 
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Descrever o WORKS em tão pouco espaço, 
seria completamente impossível, para além de 
que estaríamos apenas a repetir aquilo que a 
maior parte dos utilizadores já ouviu acerca 
desta package integrada. No fundo em tão 
poucas linhas apenas podemos dizer que o 
WORKS integra quatro poderosas ferramentas 


prontas para satisfazer a maior parte das neces¬ 
sidades informáticas de qualquer utilizador. 

Processador de texto, folha de calculo, e base 
de dados, são apenas 3 das 4 aplicações inte¬ 
gradas nesta package. A quarta aplicação pode 
funcionar como complemento de cada uma 
destas ou independente d e todas elas, visto que 
se trata de uma package de comunicações. 

A complementar as 12 disquetes fornecidas 
(8 disquetes em formato 5.25", e 4 com o mesmo 
conteúdo em formato 3.5") um extenso e com¬ 
pleto manual com mais de 600 páginas ordena¬ 
das de uma forma lógica, e incluindo um com¬ 
pleto, e útil, indice, torna o WORKS a package 
ideal para quem tem pouco tempo para 
aprender a “mexer” no computador mas deseja 
aproveitar todas as suas potencialidades. 

“Um dia de trabalho numa hora de WORKS”, 
podemos afirmar que é a melhor forma de des¬ 
crever o que esta “pequena maravilha” pode 
fazer por si. Tudo o resto está dito nas entreli¬ 
nhas do que dissemos, e demonstrado no soft¬ 
ware que lhes deu origem. 


PREÇO: 37 500$00 


REF. 325, postal 3 



Complete a sua colecção 



200S00 cada exemplar atrasado 



USE POSTAL N.° 6 
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TODOS OS PREÇOS 
INCLUEM O TRANSPORTE 
E O I.V.A. A17% 



CM1 — CONJUNTO DE 
5 JOGOS SORTIDOS 
PARA CPC 


PREÇO: 990$00 


REF.313, postal 3 


Se é possuidor de um CPC, se tem entre 5 e 95 
anos, se tem tempo para jogar e não tem jogos — 
então tem um grave problema. 

Felizmente nós propomos-lhe uma solução. 

5 Cassetes com 5 jogos (surpresa) diferentes, 
vão diverti-lo por muito mais de 5 horas e custar 
muito menos de 5 contos, embora também cus¬ 
tem um pouco mais de 5 escudos. 




y 



De instalação fácil, e utilização simplificada 
como consequência do funcionamento ba¬ 
seado em menus tipo “pop-up” o TurboCAD 
pode ser o utilitário que você procura para 
“dar asas á sua imaginação’’ no domínio do 
desenho técnico. 

Acompanhado por um completo manual que 
lhe permite entrar sem grandes dificuldades 
no mundo do Desenho Assistido por Compu¬ 
tador, o TurboCAD assegura a compatibili¬ 
dade com o AutoCAD (uma das “packages” 
de CAD mais populares entre os utilizadores 
de computadores), sendo cerca de 9 ou 10 
vezes mais económica do que esta última. 


PREÇO: 27 500S00 REF.318, postal 3 


V 


J 
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MANDAIS DE EDUCAÇÃO CIENTÍFICA 
E TECNOLÓGICA 


ELLEN RICHMAN 


MANUAL DE INTRODUÇÃO 
AOS COMPUTADORES 




( PUBLICAÇÕES DOM QUIXOn ) 




A cultura tecnológica desempenha, na sociedade dos 
nossos dias, um papel cada vez mais fundamental. O 
presente Manual de Introdução aos Computadores, de 
Ellen Richman, incide sobre uma das áreas mais rele¬ 
vantes dessa cultura, que é a que diz respeito à utiliza¬ 
ção de computadores e, em particular, de 
computadores pessoais. 

A autora apresenta de modo claro e sucinto as princi¬ 
pais aplicações dos computadores (processamento de 
texto, base de dados, folhas de cálculo, etc.), bem como 
alguns aspectos de programação elementar numa lin¬ 
guagem adequada a pequenos programas simples: o 
BASIC. 

A clareza e o rigor do texto permitem a utilização deste 
livro por crianças, jovens e adultos que pretendam 
adquirir a "literacia computacional" indispensável ao 
uso da informática. 


REF. 910 1 400S00 


Conhecer 

Melhor 



O BASIC 


Actualmente, todos os microcomputadores 
e muitos dos computadores clássicos são pro¬ 
gramáveis em Basic. O domínio desta lingua¬ 
gem tornou-se assim imprescindível a um nú¬ 
mero cada vez maior de pessoas que, por razões 
profissionais ou meramente lúdicas, recorrem 
dia a dia ao computador. 

Para além de constituir uma introdução cla¬ 
ra e acessível à linguagem Basic, o presente 
livro de Alain Checroun — professor da Uni¬ 
versidade de Paris-Dauphine — inclui ainda 
quinze exemplos de aplicação que cobrem cam¬ 
pos tão variados como a classificação de dados 
estatísticos, o cálculo de um integral, o traçado 
de um histograma, o jogo das damas ou a simu¬ 
lação do jogo do loto. 



REF. 911 


880$00 










































































































PROCESSADOR ARITMÉTICO INTEL 8087 (8MHZ) 


Se lhe dissessem que o seu computador pessoal em deter¬ 
minadas situações pode funcionar com uma velocidade de 
processamento cem por cento superior àquela em que neste 
momento funciona, estariam sem dúvida a pensar na 
simples inserção de um processador aritmético na placa 
principal do seu PC. Tarefa que mesmo uma criança poderá 
levar a cabo com sucesso a inserção do circuito integrado 
INTEL 8087 no suporte a ele destinado na placa principal dos 
PC s Amstrad, pode com efeito, em certas situações, 
duplicar a velocidade de processamento da máquina em que 
está inserido, aumentando-a sempre consideravelmente em 
todas os outros casos. 

Imagine, por exemplo, a velocidade que a sua aplicação em 
Turbo BASIC, Turbo Pascal, ou Turbo C (para nâo citar 
muitas outras) pode atingir com a adição de um simples 
integrado ao hardware já disponível, isto para não falar das 
aplicações de CAD que costuma utilizar, ou de todas as 
outras aplicações “pesadas” que entretanto recusou por 
“trabalharem a vapor” numa máquina da era nuclear. 







Em tempos adquiriu um PC com uma única 
drive, e agora deseja adicionar-lhe uma se¬ 
gunda drive de 5.25" esta oferta soluciona- 
lhe o problema. Fácil de instalar com alguma 
habilidade, e uma dose igual de paciência e 
tempo livre, esta drive de 5.25" vai poupar- 
lhe o dinheiro que o técnico lhe leva para 
proceder a uma instalação deste tipo, pro¬ 
porcionando-lhe muito mais gozo pessoal 
por no final da operação poder afirmar que 
foi você quem fez a instalação da drive. 
Concluída a instalação, você ganhou mais 
experiência, e... sobretudo ganhou mais 
dinheiro. 


PREÇO: 15 000$00 REF. 903, postal 3 


FITAS PARA 
IMPRESSORA 




Por muito boa que seja uma impressora, mais tarde 
ou mais cedo ela acaba sempre por nos aborrecer. 
Talvez no futuro as impressoras consigam produzir 
automaticamente os seus próprios consumiveis, 
mas por agora somos nós que penosamente os 
temos de adquirir. As fitas para impressora, niti¬ 
damente inseridas nesta categoria, possuem um 
preço cada vez mais elevado e, apesar disso, são 
muitas vezes difíceis de encontrar na loja onde 
costumamos fazer as nossas compras informáti¬ 
cas. Por esta razão nada melhor do que comprar as 
fitas de que necessita, quando necessita, sem 
sequer ter de se preocupar em encontrá-ias, ou 
mesmo ter de se deslocar pará adquiri-las. 


DMP 2/3/3160 

1 400S00 

REF. 904 

DMP 4000 

2100$00 

REF. 905 1 o 

REF. 906 f p0S,dl 3 

LQ 3500/PCW 

1 400S00 

LQ 5000 

2 650$00 

REF. 907 1 
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DISKETTES 

AMSTRAD 



Em 3", 3.5", ou 5.25" as diskettes 
Amstrad são fornecidas em conjuntos 
de 10 unidades com caixa plástica, ga¬ 
rantindo uma perfeita formatação e 
fiabilidade dos dados armazenados. 


3" 

PREÇO: 8 490$00 

REF. 315 


3.5” 

PREÇO: 5 990$00 

REF. 316 - 

postal 3 

5.25" 

PREÇO: 2 690$00 

REF. 317 





***#**#*****### 


MANUAL DO PC 
EM PORTUGUÊS 


Será que os computadores so podem ser utili¬ 
zados por quem sabe inglês? 

É evidente que nâo. Embora o conhecimento da 
língua inglesa facilite a aprendizagem, nunca se 
poderá considerar indispensável para este efeito. 
No nosso país, são cada vez mais frequentes as 
marcas que traduzem os manuais e as packages, 
e adaptam os teclados, para poderem possuir 
boas soluções informáticas em mercados que 
nada têm a ver com a língua inglesa. 

Foi assim, seguindo esse princípio, que AM optou 
por incluir nesta secção a tradução do MANUAL 
DO PC, para facilitar a vida a todos os que em 
Portugal preferem ler em português. 



PREÇO: 1 900$00 REF. 310, postal 3 


THE AMSTRAD C0LLECTI0N 



Jogos incluídos nesta package: 

THE DAM BUSTERS-SYDNEY 
BRUCE LEE - DATASOFT 
PSI-5 TRADING COMPANY - ACCOLADE 
TAG-TEAM WRESTLING - DATA EAST 


Quatro jogos, três disquetes, dois minutos a preencher o postal para 
os encomendar, uma única oportunidade de adquirir tudo isto por este 
preço. 


vjos. 


~ c fifcsiiuapcc*<«*-» 


PREÇO: 1 900$00 


REF. 321, postal 3 


Ll 
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ATENÇÃO assinante "TELEX" 


PC Telex: Transforme o seu PC em simultâneo com Telex 



TODA A GAMA DOS MODEMS, 
obedecendo às NORMAS DO CCITT de V.21 a 
V.29 e ACESSÓRIOS PARA A ELECTRÓNICA 


DISTRIBUIDOR: 


Homologado pelos C.T.T. 



Acessórios em stock: 

Cabos — Fichas — Computadores — Lâmpadas 


ETATRONICA — EQUIPAMENTOS TÉCNICOS, LDA. 

Rua Cidade de Bolama, 3 r/c Dt Q — 1800 LISBOA — Tels: 31 99 80/31 99 19 — Telex 18519 



DATASET 

EQUIPAMENTOS DE ESCRITÓRIO, LDA. 


Canon 


Copiadores 
Telecopiadores 
Máq. Escrever 
Máq. Calcular 
Impressoras 



AGENTE AUTORIZADO 


UNISYS 


Programas 
de Gestão 
Integráveis 

Computadores 




RUA OLAVO BILAC, 18 -2900 SETÚBAL -TELEF. 30732/3 - FAX 30768 


































WORDSTAR EXPRESS 


PRECO: Elicalfe 2 OOOSOO REF. 202. postal 3 


Apesar dos inúmeros processadores de texto e progra¬ 
mas de DeskTop Publishing, que têm surgido no 
mercado de software durante os últimos anos, o 
Wordstar continua a manter um número considerável 
de adeptos, não só porque sendo uma processador de 
texto pouco “pesado” consegue manter um conjunto 
de características muito interessante e comum a apli¬ 
cações mais complexas, mas também porque permite 
ao utilizador o processamento de texto num formato 
que cada vez mais se vai implantando como um 
standard. 

O Wordstar Express, seguindo a linha das anteriores 
versões deste programa é, “apenas”, um standard com 
melhoramentos. 


PREÇO: 19 900$00 REF. 312, postal 3 


DISKETTES DE 3.5" E 5.25" 


Para quem não faz questão em utilizar apenas disque¬ 
tes Amstrad, e quem quer poupar algum dinheiro com 
a compra das tais caixas de disquetes que há muito 
tempo necessitava, decidimos tornar disponíveis 3 
novas marcas de disquetes de 5.25" e uma de 3.5" a 
preços super-baixos. 


JOYSTICKS PARA PC's E CPCs 


Muitos dos utilizado¬ 
res de PC's em tem¬ 
pos tiveram o seu 
Spectrum, MSX, 

Atari, ou a sua 
“máquina de jogos” 
de qualquer outra 
marca. Hoje, mais 
ligados ás aplica¬ 
ções profissionais, 
muitos desses utili¬ 
zadores pensam 
com saudades no 
seu velho computa¬ 
dor, e nas antigas 
preocupações que tinham em arranjar POKE's para o 
jogo do RAMBO, ou vidas infinitas para o ARKANOID. 
Alguns de todos estes “tecladores de PC's” não 
resistem mesmo a “experimentar" os jogos que vão 
aparecendo para estas máquinas, e aí meus caros, o 
joystick é fundamental (aceitem a opinião de um 
perito). Afim de facilitar a vida a todos os “experimen¬ 
tadores de jogos”, decidimos colocar no clube AM três 
tipos de Joystick, de preços e características diferen¬ 
tes, para que todos possam ficar satisfeitos. 

Todos os joysticks apresentados funcionam sem 
problemas em qualquer PC 1512, ou PC 1640, desde 
que os jogos ou programas utilizem como controlos as 
teclas de cursor (esta característica deve-se ao facto 
da entrada de joystick, presente no teclado, emular as 
teclas de cursor que se encontram à sua direita).. 
Ainda como um alerta devemos referir que o Quick 
Shot II é o único joystick que não funciona nos 
computadores da linha CPC. 


5.25" MEMOREX Cx de cartao c/10 disq ) PRECO 1 350*00 REF 332 
MOORE (Cx de Plast c/ 10 disq ) PRECO 2 200*00 REF 333 

RPS (Cx de cartão c/ 10 disq | PREÇO 1 700*00 REF 334 

3.5" RPSlCx de cartao c< 10 disq ) PREÇO 4 OOOSOO REF 335 


Quick Shot II PRECO: 1 OOOSOO REF. 406 

Quick Shot II Turbo PREÇO: 2 750S00 REF. 407 

Sheeta Star Fighter PREÇO: 3 500S00 REF. 408 


CLUBE AM 


Coberturas para impressora 
AMSTRAD DMP 3000 
e DMP 3160 
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SOFTWARE— HOUSE 



PRESTE ATENÇÃO 

M 

VOCÊ SABIA QUE PODE COMPRAR O SEU EQUIPAMENTO 
DE INFORMÁTICA E PAGAR ATÉ 36 MESES 
COM OU S/ ENTRADA INICIAL? 


N AO! N AO É COMPRA EM GRUPO OU LEASING! 
É UMA LINHA DE CRÉDITO ESPECIAL PARA SI. 


VAMOS EXPLICAR-LHE COMO É: 

1.° — Você vem até nós para escolher o equipamento. 

2° — Preenche um breve questionário e entrega-nos uma 
declaração de vencimento. 

3.° — E PRONTO! Cerca de Trinta dias depois terá o 
equipamento com que sempre sonhou. 


VEJAMOS DOIS EXEMPLOS: 


Philips New Media Systems^ 

i 



COMPUTADOR NMS XT 

1 Drive 3Vz 
1 Disco 20 Mb 
Teclado 84 teclas 
Monitor monocromático 

PRONTO PAGAMENTO 230 000S00 

OU 

36 MENSALIDADES DE 9 154S00 

TODOS OS VALORES MENCIONADOS 


COMPUTADOR NMS AT 

1 Drive 372 
1 Disco 20 Mb 
Teclado 101 teclas 
Monitor monocromático 

PRONTO PAGAMENTO 419 000S00 

OU 

36 MENSALIDADES DE 16 675S00 

ESTÃO SUJEITOS AO IVA (17%) 


HELGRR IflFORffiflTICÍ —Calçada das Necessidades, 56-1.° Esq.° - Tel. 3466774 
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CORREIO DOS LEITORES 


"EU TAMBÉM FUI 
AO CEBIT" 


Desde há muito que sou um 
amante da Informática e das co¬ 
municações. Software, chips e 
placas sempre me fascinaram, 
embora, confesso, não faça dis¬ 
so profissão e não seja grande 
conhecedor do assunto. 

Por isto tudo o meu sonho era 
visitar uma feira de computado¬ 
res, daquelas grandes, como a 
CEBIT... Via coisas novas, es¬ 
clarecia muitas dúvidas, decidia 
finalmente quais os melhores 
computadores. Arranjaria tema 
para inúmeras conversas de ca¬ 
fé, onde contaria a todos como 
são os equipamentos que não 
existem cá em Portugal... 

Este ano, o meu sonho realizou- 
-se. Eu fui à CEBIT. 

Uma feira enorme, com um in¬ 
comensurável número de stands 
e um ainda mais incomensurá¬ 
vel número de produtos. Visitan¬ 
tes? Falava-se em mais de 
500.000, os suficientes para 
que qualquer deslocação fosse 
um tormento. 

Bom, cá está um produto que 
me interessa —um telefone pa¬ 
ra automóvel—vou ver como is¬ 
to funciona. "O quê, não fala in¬ 
glês?—Bom, mas deve ter aí um 
colega que fala. —Não tem, ora 
bolas!". 

Por aqui não me safo. Olha! 
Aquele tem ali catálogos. "Não 
tem doutros? Estes são em ale¬ 
mão. Ai não tem? E é isto uma 
feira internacional..." 

Bem, vou ao stand da AMS- 
TRAD. E certo que vão lá ter no¬ 
vidades. Vou ver a última do SU¬ 
GAR. Vou ver tudo devagarinho 
para não perder "pitada". 

Os PC 2386 e 2286 a trabalha¬ 
rem em UNIX e em OS/2. Os 
restantes modelos da série 
2000. Os PPC e os PCW. Os 
1 512 e os 1640. O 2086. E, en¬ 
tão, as novidades? 

Olha que software interessante 
ali ao lado. Vou pedir uma de¬ 
monstração. "0 quê? Por ter re¬ 
presentante em Portugal não me 
faz uma demonstração?" 

E assim foi. Para além de uma 
gripe, provocada pelas entradas 
e saídas em pavilhões quentíssi¬ 


mos, a contrastarem com os ze¬ 
ro graus nas ruas, pouco mais 
trouxe da CEBIT. 

A mesa do café prefiro dizer fui 
passar férias a Hannover. "Há 
que não espantar a passarada": 
sempre quero ver se vai lá ou¬ 
tro para verificar se o defeito é 
meu ou se são mesmo estas 
grandes feiras de Informática 
que não têm interesse nenhum. 

Valério Santos 


— A questão é só esta: existem 
à venda, em Portugal, livros (e 
quais, se possível) sobre progra¬ 
mação em Linguagem Assem- 
bler para o PC AMSTRAD (em 
qualquer lingua —Português, Es¬ 
panhol, Francês, Inglês, Ita¬ 
liano)? 

Agradeço, desde já, a amabilida¬ 
de de uma resposta (pessoal¬ 
mente e/ou através da AM), 
subscrevo-me atenciosamente. 

Pedro M. — Tondela 

AM: —Poderá encontrar, entre 
outros, os seguintes livros: 
-LINGUAGEM ASSEMBLER 
para PC IBM —Editora Campus 
-PROGRAMAÇÃO ASSEM¬ 
BLER para microprocessadores- 
-McGrawHill 

-PROGRAMAÇÃO ASSEM¬ 
BLER para PC AMSTRAD-Edit. 
Gustavo Gili. 


— Possuo um AMSTRAD 1640 
com duas drives de 5.25" e re¬ 
centemente optei por lhe adap¬ 
tar também um disco duro de 20 
MB mantendo entretanto as 
duas drives. O disco que lhe 
adaptei é o "BUSINESS CARD 
21 DA TANDON", tendo sido 
encaixado na Slot tal como o es¬ 
pecificado no manual que o 
acompanha. Após a instalação 
efectuada, carreguei o sistema 
operativo usando as diskettes 
que vieram com o computador 
e da forma com o especificado 
no Manual de Instruções da pág. 
29 a 34. Porém, acontece que 
o disco desactiva-se quando 


carrego algum software tal co¬ 
mo o Lotus, Dbase, Acad, etc., 
e por vezes só com o próprio sis¬ 
tema apontando o erro 'ÈRROR 
GENERAL FAILURE READING 
DRIVE C: ABORT, RETRY, IG¬ 
NORE?", tendo que desligar e li¬ 
gar o computador para o activar 
outra vez. Já fiz várias tentati¬ 
vas assim como, consultas 
constantes do manual mas não 
consigo solucionar o problema. 
Por outro lado, medi a tensão 
eléctrica e esta encontra-se nor¬ 
mal. Existe também o problema 
do "PARK" não funcionar indi¬ 
cando TNVALID DRIVE SPECI- 
FICATION". 

Décio D. —Mortágua 

AM:— A sua Hard Card pode 
não funcionar por dois motivos 
completamente distintos: 

1—Consideramos a possibili¬ 
dade de o campo magnético ge¬ 
rado pelo monitor interferir com 
o funcionamento da Hard Card, 
caso esteja tombado para trás. 

2.°—Nem todas as Hard Card 
conseguem trabalhar sem venti¬ 
lação. Passado algum tempo após 
ter ligado o computador a tempe¬ 
ratura sobe, tendendo todos os 
materiais a desmagnetizar. Ten¬ 
te relacionar o aparecimento dos 
erros com o tempo que o compu¬ 
tador está ligado. Aconselhamo- 
-lo a colocar uma ventoinha. 

— Relativamente à mensagem 
que aparece quando executa o 
utilitário "PARK", não significa 
que existam problemas. O 
"PARK" da AMSTRAD utiliza 
uma função do BIOS para par- 
quear as cabeças do disco, po¬ 
dendo essa função não ser su¬ 
portada pelo controlador da sua 
Hard Card. Atenção que os dois 
problemas apresentados podem 
estar relacionados, caso a sua 
Hard Card não tenha sistema de 
parqueamento. Se assim for te¬ 
rá que ter o máximo cuidado no 
seu transporte, caso contrário 
poderá perder toda a informação 
nela contida. 


— Tendo eu trabalhado num PC 
1 640 de disco rígido e com uma 
drive de 5"1/4 com as minhas 
diskettes e sabendo pouco de¬ 
pois que o computador já esta¬ 
va anteriormente contaminado 
com o vírus 'italien Bouncing" 
não correrei perigo que as mi¬ 
nhas diskettes tenham sido con¬ 
taminadas e possam vir a con¬ 
taminar outros computadores 
com disco? 

— O "GEM" e os seus utilitários 
fornecidos com o AMSTRAD 
PCI 51 2 correm sem problemas 
na nova série dos PC 2000? 

— Qual o preço aproximado no 
mercado de uma drive externa 
de 5" 1/4 para a série AMS¬ 
TRAD PC 2000? 

Eurico A. —Matosinhos 

AM: —Não conhecemos o vírus 
'italien Bouncing" para lhe res¬ 
ponder concretamente à sua 
questão, no entanto, recomen- 
damos-lhe o máximo cuidado e 
eventualmente efectuar os tes¬ 
tes necessários numa máquina 
em que não exista informação 
importante e possa ser nova¬ 
mente formatada. 

-O GEM do PCI 512 não fun¬ 
ciona na série 2000, visto ne¬ 
cessitar do DOS PLUS. No en¬ 
tanto, pode corrê-lo utilizando 
uma versão para o PCI640. 

— Uma drive externa custará, 
aproximadamente, 45 contos se 
de baixa densidade e 49 contos 
se de alta densidade. 

— O "virus" que apresentam na 
pág. 17, da edição 8, pode ser 
introduzido (isto é, a sua lista¬ 
gem pode ser introduzida) usan¬ 
do o Turbo Pascal? Se sim, po¬ 
deriam referir todos os passos 
porque tenho de passar até tu¬ 
do estiver pronto para se intro¬ 
duzir a listagem? Se não, por fa¬ 
vor indiquem o programa 
correcto bem como todos os 
passos pelos quais tenho de 
passar até tudo estar pronto pa¬ 
ra se introduzir a listagem. Por 
fim, qual é a instrução com que 
faço correr o programa? 

— Para se possuir um "modem" 
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é necessário alugá-lo aos 
C.T.T.? é necessário pagar uma 
taxa de "modem" aos C.T.T.? 
Eu possuo um PHILLIPS NMS 
9110 (compatível PC). Qual é o 
melhor programa de comunica¬ 
ções existente no mercado pa¬ 
ra o meu computador? 

— Na edição n.° 8, referem que 
os utilizadores de computadores 
com disco rígido deverão com¬ 
prar uma fonte de alimentação 
ininterrupta. Das fontes existen¬ 
tes no mercado, qual me acon¬ 
selham? 

Parabéns pela A.M.! Não foi um 
pintainho que nasceu morto, co¬ 
mo muitas magazines de infor¬ 
mática em Portugal e, desenvol- 
veu-se bastante, sendo no mo¬ 
mento, de longe, a melhor ma¬ 
gazine de informática em Portu¬ 
gal. 

João Faria 

AM: —Pode inserir esta listagem 
usando o editor do TURBO PAS¬ 
CAL, pois este permite manusear 
ficheiros ASCII. Passos a seguir 
utilizando o TURBO PASCAL 4. 


1 -C) TURBO VIRUS.TXT 

2— Introduza a listagem linha a li¬ 
nha, tal e qual está descrito na 
AM (n.° 8 pág. 17) 

3— Após ter completado o passo 
anterior faça FIO (retorna ao mo¬ 
do de comando) e faça "ENTER". 
De seguida posicione-se na opção 
QUIT e faça novamente "EN¬ 
TER". 

Grave escolhendo a opção Y(es) 

4— C) DEBUG (VIRUS.TXT 
Tem neste momento o ficheiro 
VIRUS.COM que poderá executar 
em qualquer altura. 

NOTA: Caso não possua a versão 
4 do TURBO PASCAL, siga estes 
mesmos passos, adaptados à sua 
versão. 


— Para possuir um modem assín¬ 
crono não necessita de o alugar 
aos CTT-TLP. Para poder aceder 
à TELEPAC ou ao VIDEOTEX te¬ 
rá de se registar como utilizador 
e pagar uma taxa de utiliza¬ 
ção. STOP BIT 

Numa transmissão assíncrona 
torna-se necessário juntar aos ele¬ 
mentos objecto de transmissão 


(bits de dados e paridade, ca¬ 
so exista) outros elementos que 
permitam identificar o início e o 
fim da sequência a transmitir. 
Para sinalizar o início adiciona- 
-se um elemento denominado 
"start bit" caracterizado por uma 
transição negativa e estado bai¬ 
xo por tempo T e para sinalizar 
o fim junta-se outro elemento 
denominado "stop bit" caracte¬ 
rizado por estado alto por um nú¬ 
mero de T configurável (ex: 1,1/2 
ou 2) mas constante ao longo da 
comunicação. 

-PARIDADE 

Numa transmissão de dados 
torna-se necessário assegurar a 
qualidade da informação recebi¬ 
da de modo a eliminar, tanto 
quanto possível, eventuais erros 
ocorridos durante a transmissão 
efectuada. 

Entre os controlos possíveis de 
efectuar encontra-se a PARIDA¬ 
DE vertical ou horinzontal. A PA¬ 
RIDADE vertical consiste em adi¬ 
cionar um bit no final da 
sequência de bits que constituem 
o caracter transmitido. Se a PARI¬ 


DADE for ímpar esse bit tomará 
o valor necessário (0 ou 1) de mo¬ 
do a que o número de bits "1" 
seja ímpar. Caso a PARIDADE se¬ 
ja par executa-se procedimento 
idêntico ao descrito, mas de for¬ 
ma a que o número de bits "1" 
seja par. A PARIDADE horizon tal 
consiste em adicionar um carac¬ 
ter no final de um bloco de com¬ 
primento fixo, no qual cada bit é 
o resultado da aplicação da fun¬ 
ção "OU" exclusivo sobre os bits 
de posição correspondente dos 
caracteres presentes no bloco 
transmitido. Esta técnica também 
é conhecida por PARIDADE DE 
BLOCO. 

— Dizer qual o melhor programa 
de comunicações, é arriscado, 
porque o conceito de qualidade 
varia com o fim a que o produto 
se destina. Dois programas de co¬ 
municação que facilmente encon- 
trá são o PROCOMM e CROSS- 
TALK. 

— Para escolher a fonte adequa¬ 
da ao seu sistema, aconselho-o a 
inquirir directamente um fornece¬ 
dor deste material. 



LABORATÓRIOS DE ELECTRÓNICA, LDA. 

RUA DOS SOEIROS - QTA. DOS PILARES 1500 LISBOA 

ffl 78 88 17 - 78 26 58 FAX 7826 58 


TEMOS 0 MELHOR PREÇO PARA: 

DISQUETES DESDE 59S00 

PAPEL 9,5 x 12" 1 150$00 

FITAS E OUTROS COIMSUMÍVEIS 
CLONES VÁRIAS MARCAS 
REDES - DISCOS - DÍVEIS 
MONITORES - IMPRESSORES 


e muito mais... 


ENVIAMOS À COBRANÇA 
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— Se for possível da vossa par¬ 
te agradecia a seguinte informa¬ 
ção: 

— O TURBO CAD pode ser uti¬ 
lizado com um PC de duas dri¬ 
ves? 

— O manual deste programa é 
em inglês ou Português? 

Com os meus melhores cumpri¬ 
mentos. 

Dário Humberto L. Barata 
— Melgaço 


AM: 0 sistema mínimo para o 
TURBOCAD funcionar é o se¬ 
guinte: 

— 256 Kb de memória 

— ecrã CGA ou superior 

— 2 unidades de disquete 

O programa pode ser fornecido 
em suporte 5.25" (360 Kb) ou 
3.5i (720 Kb). 

O manual fornecido é em Inglês. 


— Caros amigos, apenas gosta¬ 
ria de vos perguntar se é possí¬ 
vel a instalação interna ou exter¬ 
na de uma drive de 3.5 num PC 
1512. 

António M. —Coimbra 

AM - É possível e sem qualquer 
inconveniente. 


— Duas perguntas: 

1.° — Falam na "Amstrad" do 
"Windows"—teclado portu¬ 
guês. Possuo o "Ability" (só es¬ 
te porque não há dinheiro para 
mais). Estou desiludido por es¬ 
perava mais e melhor deste pro¬ 
grama. Pergunto: é possível 
fazê — lo trabalhar também com 
teclado português? 

2 ? —Página 26 da Revista Ams¬ 
trad, mês Abril. Programa do 
Nuno F. R. Ferreira (um ficheiro 
de clientes) para o CPC. Pergun¬ 
to: é totalmente compatível pa¬ 
ra o PC 1512 DD MM? Posso 
introduzi-lo? É que não percebo 
nada de programação e sou um 
principiante. 

José Magalhães 
Marco de Canaveses 

AM: Para utilizar o teclado por¬ 
tuguês com o ABILITY dever 
carregar os utilitários de sistema 
KEYBPO e GRAFTBPO, poden¬ 
do, caso o deseje fazer o seu 
carregamento através do AU- 
TOEXEC.BAT. 

Existem actualmente no merca¬ 
do vários sistemas informáticos 
e para cada um destes uma lar¬ 
ga gama de software adaptada 


aos mesmos, no entanto, exis¬ 
tem produtos que devido à sua 
importância ultrapassam o hori¬ 
zonte para o qual foram inicial¬ 
mente destinados, tornando-se 
standards de mercado, tal como 
acontece com as linguagens de 
programação Basic, Cobol, C, 
Pascal, e juntando—se, recente¬ 
mente, a este lote o ABAL. 

No caso do BASIC existem no 
mercado várias versões, conhe¬ 
cidas também por dialectos do 
BASIC, que, possuindo uma es¬ 
trutura idêntica, contêm, no en¬ 
tanto, algumas instruções pró¬ 
prias a cada um. 

No caso do PC 1512 e traba¬ 
lhando num ambiente DOS (sis¬ 
tema MSDOS), tem um leque 
bastante grande de escolha de 
um Basic, dos quais podemos 
enumerar, como exemplo, Basic 
2, GW Basic, Turbo Basic, Quick 
Basic, etc. 

No caso do programa referido 
(GESTÃO DE CLIENTES) este 
não é totalmente compatível, 
porque estando desenvolvido 
para um ambiente CPM possui 
instruções que não existem, por 
exemplo, no GW Basic. Se, no 
entanto, trocar algumas destas, 
este passar a ser executível no 
seu AMSTRAD PC 1512. Para 
tal, dever consultar o manual 


do seu Basic e adaptar instru¬ 
ções ou alterar a sintaxe. No 
caso de utilizar o GW Basic, ter 
que alterar as seguintes instru¬ 
ções: , 

— PLOT (definir ponto) 

— DRAW (desenhar) 

— OPENIN (abrir ficheiro) 

— CLOSEIN (fechar ficheiro). 


— Aproveito para lembrar que, 
apesar de em DEZ/88 a AM não 
ter saído, a minha assinatura 
anual continua a ter o início na 
Revista n° 9. Caso seja possí¬ 
vel e para que a minha assina¬ 
tura termine em DEZ/89, po¬ 
diam enviar-me a revista n° 5 de 
SET/88 (troca com a AM de 
JAN/90). 

David dos Santos 
Mestres —Mira 

AM: Para poder trabalhar com 
disquetes de 3.5" HD (2 Mb 
desformatadas), tem de proce¬ 
der à instalação de uma unidade 
de alta densidade. Estas unida¬ 
des podem ler, também, disque¬ 
tes de 720 Kb, tendo em aten¬ 
ção que não pode formatar em 
720 Kb disquetes de alta densi¬ 
dade. 
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The Integrated 
PC Power Tool 

Migent Ability could be the only software you will 
ever need for your Amstrad PC1512 —together they 
give you so much power but with such ease of use. 
Ability gives you easier word processing. larger 
spreadsheets, protessional business graphics, powerful 
database management, compatible Communications 
and you can even do a.udio visual presentations on 
your Amstrad PC1512 screen. Yet all this power is 
you rs with no programming. 


/A GBT and t 


i Ability 



* utarín J-IVH ?.IU.N 

• Ulll HM» 
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Package Integrado de programas que lhe 
oferece: 

a) Base de Dados. 

b) Folha de Cálculo. 

c) Gráficos de gestão. 

d) Processamento de Texto. 

e) Comunicações. 

f) Gerador de Apresentações. 


Incluindo 



1) Manual de fácil leitura e manuseamento. 

2) Utilização compartilhada de dados 
para as diferentes aplicações. 

3) Integração activa entre os programas, 
(não realizável em programas 
conhecidos do mercado). 

4) Com o programa APRESENTAÇÃO, 
Incluído no Ability, podem preparar-se 
Informações obtidas com os dados 
manuseados com o programa base. 




-- 

íMWi 
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ESTRUTURAS de DADOS 

DINÂMICAS 




1. O QUE SÃO ESTRUTURAS DE DADOS 

Existem basicamente dois tipos de estruturas de dados: as 
estáticas e as dinâmicas. 

Antes de dissecar o que são estruturas de dados estáticas 
ou dinâmicas, comecemos pelo princípio e definiremos pri¬ 
meiro o que são realmente estruturas de dados. 

Estruturas de dados são entidades que permitem o arma¬ 
zenamento de informação de uma forma mais ou menos 
organizada. A forma como está organizada esta informação, 
vai influenciar naturalmente o modo como ela poderá ser 
tratada ( acedida, modificada, removida ). Os mecanismos 
que tratam e manuseiam a informação são chamados algo¬ 
ritmos. 

Assim pode-se dizer que as estruturas de dados de um 
programa são definidas na zona reservada à declaração de 
tipos e variáveis, enquanto que a respectiva algoritmia corres¬ 
ponde ao código procedimental usado.Voltando ao nosso 
tema inicial, estruturas de dados dinâmicas são, como o 


próprio nome indica, estruturas de dados 
cuja capacidade de armazenamento de 
informação varia ao longo do programa 
conforme as necessidades do utilizador; 
as estáticas são aquelas onde essa capa¬ 
cidade é fixada à partida não podendo ser 
alterada no decorrer do programa. 

As estruturas de dados dinâmicas 
baseiam-se fundamentalmente na noção 
de apontador. 

Sendo assim convém definir e analizar 
primeiro este conceito e só depois tratar 
com mais detalhe algumas das estruturas 
mais simples que podemos construir com 
apontadores. 

A linguagem que iremos utilizar para 
exprimir as ideias expostas será o Pascal 
apenas por ser uma linguagem que utiliza 
os apontadores de um modo bastante 
estruturado. 

Contudo é de facto a linguagem C 
quem mais partido tira dos apontadores. 


2.APONTADORES 
2.1 Definição 

Apontadores são variáveis que têm 
como conteúdo informação que permite aceder a outras 
variáveis, que de outra forma seriam inacessíveis (no caso do 
Pascal). 

Fazendo uma analogia com caixinhas, pode-se dizer que 
um apontador é uma caixinha cujo conteúdo é uma outra 
caixinha que está devidamente etiquetada com o tipo de 
coisas que lá pode ter dentro. Assim um apontador para 
‘frango’ não é mais que uma caixinha cujo conteúdo é uma 
caixinha que só pode levar frangos. 

Esta analogia leva-nos à seguinte questão: Então e aque¬ 
les jogos de caixas que se enfiam umas nas outras até 
finalmente se encontrar a tão almejada prenda? Seguindo o 
mesmo raciocínio, a caixa exterior é um apontador para um 
apontador que aponta para um outro apontador... que aponta 
finalmente para a prenda desejada. 

Assim um apontador para inteiros, não é mais que uma 
variável cujo conteúdo é o endereço ou posição em memória 
de uma variável inteira. Graficamente o apontador p para um 
inteiro cujo valor corrente é 3, vem: 
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Esta é uma forma abreviada de exprimir o que realmente 
se passa em memória. O significado da seta é de que o 
apontador p contém o endereço de uma posição de memória 
cujo conteúdo é 3. Assim graficamente a memória podia ser 
vista da seguinte forma: 


Endereço: 0123456789 A 

1-f-f-4- -1 -1..+-4 - 4- -4-4-. 4-.i- 

: ; 5 ! ; i : 3 : : ; ; i : 

1 1 » - -1 11-4—1 ♦- »- f 1 

p • 1 p" 


Repare-se que como já foi referido, os apontadores podem 
apontar para tudo, inclusivé para apontadores. 

Nesse caso tem-se algo do género: 


P 

+- 4 I I + 

!.> í ! > i ! 

-1 » 4 4 


2.2 Notação usada 

Sendo os apontadores variáveis como quaisquer outras, 
põe-se a questão de como as declarar. 

O modo mais intuitivo seria talvez, fazendo uma analogia 
com os ficheiros, declarar um apontador para T, sendo T um 
tipo já definido, como sendo: 

var p: pointer to T; 

No entanto, o criador do Pascal parece não ter gostado 
muito da ideia e resolveu que a declaração era feita do 
seguinte modo: 

var p: A T; 

Pode-se também, como é óbvio, declarar o tipo de aponta¬ 
dor para T. Assim podia-mos definir: 

type ApontaParaT = A T; 

e declarar uma variável do tipo apontador para T da forma 
natural: 

var p : ApontaParaT; 

Sendo p um apontador, há necessidade de uma primitiva 
para aceder ao valor apontado por p. Essa primitiva é o 
operador A (seta). 

Assim se tivermos uma variável p do tipo ApontaParaT e 
uma outra t do tipo T as afectações 



são afectações válidas. 


Repare-se que a afectação p := t; não é válida pois p e t são 
de tipos diferentes: t é do tipo T e p é do tipo ApontaParaT, que 
é o mesmo que dizer A T. Assim, p A pode ser lido como ‘ o valor 
apontado por p ', podendo-se fazer com p A tudo o que se faz 
com qualquer variável do tipo T. 

As restantes operações permitidas entre apontadores são 
as mesmas que são permitidas entre quaisquer duas variá¬ 
veis de um mesmo tipo simples, ou seja a afectação e a 
comparação. Assim se pi e p2 forem do tipo ApontaParaT, as 
seguintes instruções são instruções válidas: 

if pl=p2 then write ('pl e p2 apontam para o mesmo sitio') 

else write('pl e p2 apontam para sitios difer.') 

pl := p2; { pl e p2 passam a apontar para o mesmo sitio } 

Repare-se que esta última instrução é diferente da afecta¬ 
ção p1 A := p2 A , pois esta está a afectar a variável apontada 
por pl pelo valor da variável apontada por p2 e não a variável 
pl. 

Se as únicas operações sobre apontadores fossem estas, 
não havia vantagem nenhuma na sua utilização compara¬ 
tivamente aos outros tipos de variáveis, pois tudo o que se faz 
com p A faz-se com t, sendo p do tipo ApontaParaT e t do tipo 
T. Por outro lado, para existirem estruturas de dados dinâ¬ 
micas, são necessárias primitivas do tipo: ‘Dá-me mais uma 
variável do tipo T’ e Toma lá esta variável, pois já não preciso 
dela’. As primitivas que implementam estas acções são 
respectivamente o new() e o dispose(). 

A primitiva new( var t: A T), sendo T um tipo genérico devolve 
no seu argumento um apontador para uma variável do tipo T. 
Corresponde portanto a pedir uma variável ao sistema. A 
primitiva dispose( t: A T), T tipo genérico, devolve ao sistema 
a variável apontada pelo seu argumento. 

Assim inicialmente, quando se declara um apontador, só é 
reservado espaço para a' própria variável apontador e não 
para o que é apontado por ele, ou seja, inicialmente um 
apontador não está a apontar para nada de útil e portanto a 
instrução (I) no contexto dado é INCORRECTA: 

var p : ApontaParaT; 
t : T; 

begin ler( t); { Lê o valor de t } 

p A := t; { (I) - instrução incorrecta } 

end. 

Para se fazer a instrução (I), tinha-se primeiro que pedir 
uma variável ao sistema. 

A forma correcta seria então fazer: 

begin ler( t); { Lê o valor de t } 

new( p);(Põe p a apontar para uma variávei do tipo T} 
p A := t; { Instrução correcta } 

end. 

Por outro lado fazer disposeQ de um apontador equivale a 
devolver ao sistema a variável apontada por este e portanto 
a sequência de instruções seguintes é INCORRECTA: 

dispose( p) ; 
p A := t; 

Repare-se ainda que não faz sentido fazer dispose() de um 
apontador que não está a apontar para nada. Sendo assim 
são INCORRECTAS as seguintes sequências de instruções: 

dispose( p); e var p : ApontaParaT; 

dispose( p); begin dispose( p); ... 
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Convinha ainda ter um mecanismo qualquer para detectar 
se um apontador está ou náo a apontar para alguma coisa. 
Esse mecanismo náo existe pré-definido, no entanto, é-nos 
fornecida uma constante do tipo apontador tal que se um 
apontador for igual a essa constante entáo não está a apontar 
para coisa alguma. Essa constante é chamada Nil. 

Assim a sequência correcta de instruções para fazer 
dispose() de uma variável é a seguinte: 

dispose( p) ; 
p := Nil; 

Repare-se que se não fizéssemos a afectaçào p := Nil, no 
futuro não poderiamos testar se p estava ou náo a apontar 
para alguma coisa. Para fazer este teste basta usar a notação 
habitual, ou seja: 


existe em algumas linguagens, muitas das quais o seu uso é 
de uma importância fundamental (linguagem C), pois nessas 
linguagens só existe passagem de parâmetros por valor. 

2.3 Alguns problemas com o uso de apontadores 

Através dos exemplos dados anteriormente, pode-se já 
antever que convém ter um certo cuidado quando se trabalha 
com apontadores. 

Com efeito além dos problemas, quiçá triviais, referidos 
anteriormente, os apontadores são as estruturas de dados 
mais sensíveis a efeitos laterais ('side-effects’). Efeitos late¬ 
rais são efeitos que acontecem sem se fazer nada de explícito 
para que tal aconteça. 

Tome-se os seguintes exemplos: 


if p = Nil then write('p náo está a apontar para nada'); 

Um outro operador útil seria o operador que aplicado a uma 
variável dava o seu endereço. Suponhamos que esse ope¬ 
rador era Assim, por exemplo, &v devolvia o endereço da 
variável v. 

Tendo este operador, era fácil por exemplo pôr um apon¬ 
tador para T a apontar por uma variável do tipo T, sendo T um 
tipo genérico. Para tal fazia-se: 


var p: A T; 
v: T; 

begin .... p := &v; 


end. 


e portanto p A ev passavam a ser a mesma variável e logo 
era indiferente fazer uma afectação ou uma leitura a p A ou a 
v. 


.(I)program testei( output); 
var pl, p2: A integer; 
begin new(pl) ; 
p2 := pl; 
pl A := 3; 
write( p2 A ); 
p2 A := 5; 
write ( pl A ) 

end. 


(II) program teste2(output); 
var pl, p2: A integer 
begin new( pl); 
new ( p2); 
p2 A := pl A ; 

pl A := 3; 
write ( p2 A ); 
p2 A 5; 

write( pl A ) end. 


No caso do programa (I), quando se faz a afectação 
p2 := pl, está-se a pôr p2 a apontar para a mesma variável 
que pl aponta (p2 fica com o mesmo endereço de pl). Assim 
a afectação pl A := 3 tem como efeito lateral pôr p2 A igual a 
3 e logo o programa testei tem como output 3 e 5. 

Repare-se que tudo o que se fizer com a variável p1 A irá 
influenciar a variável p2 A e vice-versa, pois pl A e p2 A são duas 
variáveis que partilham a mesma posição em memória e 
portanto são no fundo a mesma variável. 


De notar que no Pascal quando se passa uma variável por 
var para um procedimento, o que o compilador faz é enviar o 
endereço da variável que é passada e assim todas as 
referências feitas a essa variável no corpo do procedimento 
são tranformadas em ‘a variável apontada pelo endereço’. 

Em termos mais práticos, o que pretendo dizer é que fazer 


De notar que este problema se pode generalizar para mais 
que dois apontadores, bastando para tal pô-los todos a 
apontar para a mesma variável, de um modo idêntico ao 
utilizado no programa testei. 

Graficamente o problema pode-se visualizar do seguinte 
modo: 


var i: integer; 

begin p(i); write(i) end. 

com p definido da forma: 

procedure p( var v: integer); 
begin v := 7 end; 

é o mesmo que fazer 

type Aplnt: A integer; 

var i: integer; 
begin p( &i); write(i) end. 

com p definido da forma: 

procedure p( v: Aplnt); 
begin v A := 7 end; 

e portanto tendo este operador, a passagem de argumen¬ 
tos por referência deixava de ser necessária. 

Assim e apesar deste operador ter algum interesse, ele não 
existe na linguagem Pascal pois permitiria o uso de aponta¬ 
dores em muitas situações não desejáveis e além disso é um 
operador que não traz nada de novo ao que já se pode fazer. 

Apesar de não existir no Pascal, este é um operador que 
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Repare-se que neste exemplo os apontadores p, q e r 
apontam para a mesma variável e portanto qualquer alteração 
no seu valor, através de p, q ou r, é reflectida no valor apontado 
pelos outros apontadores. 

Quanto ao programa (II), é deixado como exercicio, o saber 
qual o seu output e qual a razão porque os resultados são 
diferentes do programa (I). 

Outro problema que pode ocorrer com o uso de apontado¬ 
res é o de haver variáveis inacessíveis. 

Repare-se no seguinte exemplo: 

program teste3 ...; 

var pl, p2: ApontaParaT; 

begin 

new( pl); 
new( p2); 
pl := p2; 

end. 
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Neste exemplo o sistema ‘devolveu’ ao programa 2 
variáveis cujas referências colocou em pi e p2, quando a 
primitiva new() foi chamada. 

Acontece que com a afectação de p2 a pi a referência para 
a variável apontada por pi perdeu-se, passando pi a apontar 
para a variável apontada por p2, e portanto o espaço em 
memória ocupado por essa variável vai continuar reservado 
em memória sem contudo ser possível acedê-la. 

Graficamente tem-se qualquer coisa como isto: 



Além dos apontadores, uma outra estrutura que permite 
‘furar’ as normas convencionais de programação é o registo 
com variante. 

Um registo com variante é um registo que permite aceder 
a um dos seus campos de duas ou mais maneiras distintas. 
Assim se se souber que um inteiro ocupa 2 bytes e que um 
caracter ocupa 1 byte, pode-se aceder a um inteiro quer 
através de uma variável inteira quer através de um vector de 
caracteres com duas posições. Para tal basta declarar uma 
variável da seguinte forma: 

var v : record 

case boolean of 

true: ( int: integer ) ; 

false:( car: packed array [1..2] of char) 

end; 

Do mesmo modo e sabendo que na maior parte dos 
computadores um apontador ocupa 2 bytes e que além disso 
um apontador não é mais que um número (pois trata-se de um 
endereço), pode-se arranjar maneira de aceder a um aponta¬ 
dor para um determinado tipo através de um inteiro. 

Para tal basta declarar o tipo (T tipo genérico): 

type IntApont = record 

case boolean of 

true: ( i: integer ) ; 
false: ( p: A T) 

end; 

Com uma variável deste tipo podem-se fazer coisas que em 
principio deviam de ser evitáveis, como por exemplo ‘limpar’ 
a memória toda e estoirar com o programa. 

Para tal basta declarar uma variável do tipo IntApont, sendo 
T o tipo caracter e executar o seguinte ciclo: 

var v : IntApont; 

begin 

for v.i := 1 to Maxlnt do v.p A := char( 0); 

end; 

Este ciclo não faz mais do que por em todas as posições de 
memória com endereços de 1 a Maxlnt, o valor 0. 

O uso de variáveis deste tipo tem contudo aplicações que 
apesar de rebuscadas possuem algum valor pedagógico. 

Para tal considere-se o tipo T usado na definição de 
IntApont como sendo o tipo CadlntlO definido do seguinte 
modo: 


type CadlntlO = array [1..10] of integer; 

Considere-se agora a seguinte função: 

function Soma( v: IntApont; n: integer) : integer; 

{ Admite-se que v.p <> nil e 0 =< n =< 10 } 

var fim, som: integer; 

begin som := 0; 

fim := v.i + 2 * n; 
while v.i < fim do 

begin som := som + v.p A ; 
v.i := v.i + 2 

end; 

Soma := som 

end; 

Esta função não faz mais que somar os n primeiros termos 
do vector de inteiros apontado por v. 

A variável som contém em cada instante o valor da soma 
já obtida enquanto que a variável fim contém o endereço do 
primeiro inteiro que não vai entrar na soma. Repare-se que um 
inteiro ocupa 2 bytes. 

Assim e para uma melhor compreensão consideremos que 
é passado como argumento um vector com os valores 5 e 7 
nas duas primeiras posições e que o valor do n era 2. Nesta 
situação teriamos na primeira iteração o seguinte: 
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Repare-se que cada quadrado desenhado diz respeito a 2 
bytes e portanto quando se soma 2 a v.i, este fica com o 
endereço do próximo inteiro ou seja passa a apontar para a 
segunda posição do vector. Este ciclo vai-se repetindo até v.i 
ser finalmente igual a fim. 

De notar que ‘fim’ apesar de ser um inteiro, o seu conteúdo 
é o valor correspondente ao endereço do fim do array. 


3. LISTAS 
3.1 Definição 

A noção de apontador dada no item anterior, leva à seguinte 
questão: Então e é possivel definir um tipo apontador que 
aponte para ele próprio? Com efeito nada nos impede de fazer 
tal coisa. 

Para tal, uma das alternativas seria definir: 

type Lixo = A Lixo; 

Qual será a utilidade deste tipo, perguntarão os mais 
incrédulos. Na verdade nenhuma, pois o que estamos a dizer 
é que uma variável do tipo Lixo é um apontador para uma 
variável do tipo Lixo que por sua vez é um apontador para uma 
variável do tipo Lixo e assim indefinidamente. 

Assim o tipo Lixo é um tipo obsoleto, pois define uma 
estrutura de dados que não pode conter nada de útil em si 
própria. 

No entanto a ideia original pode ser aproveitada de forma 
útil. Repare-se que o tipo Lixo define uma cadeia de variáveis 
em memória, e que o único problema é que cada uma dessas 
variáveis não contém nada de útil, mas tão sómente um 
apontador para o próximo elemento da cadeia. 

Assim basta associar a cada variável da cadeia alguma 
informação adicional. 
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Para tal basta definir o seguinte tipo: 

type Elemento = record 

item: Info; 
prox: A Elemento 

end; 


sendo o tipo Info um tipo qualquer que poderá conter 
informação útil sobre um determinado problema. 
Graficamente tem-se qualquer coisa como isto: 
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onde o elo de ligação não é mais que o campo prox do tipo 
Elemento. 

É através de uma estrutura deste género que é definido o 
tipo Lista. 

Com efeito uma lista não é mais que um apontador para o 
tipo Elemento. 

Assim, tem-se: 

type Lista = A Elemento; 

Repare-se que a estrutura assim definida é uma estrutura 
dinâmica, pois define uma lista com 0 ou mais items de 
informação útil, podendo se aumentar ou diminuir a lista 
conforme as necessidades do programa. 


3.2 Listas desordenadas 

As operações necessárias para manobrar listas são a 
inserção de um novo elemento, a remoção de um elemento, 
a busca de um elemento com uma determinada característica 
e eventualmente o listar dos elementos da lista. 

Inicialmente (quando o programa ‘arranca’) a lista está 
vazia e portanto o apontador não está a apontar para nada de 
útil, devendo-se pôr portanto o apontador a nil. 

Assim um possível procedimento de inicialização seria: 

procedure inicLista( var 1: Lista); 
begin 1 := nil end; 

Para inserir um elemento numa lista, como esta é desorde¬ 
nada, pode-se pôr o elemento à cabeça (no inicio da lista). 
Para tal basta pôr o apontador da lista a apontar para o novo 
elemento e o campo próximo do novo elemento a apontar para 
onde a lista apontava inicialmente. 

Graficamente tem-se qualquer coisa do género: 
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onde a tracejado tem-se as ligações que se têm que 
estabelecer. 

Assim o procedimento para inserir, seria: 

procedure insereDesordf var it: Info; var 1: Lista); 
var aux: Lista; 

begin new( aux); { Pedir uma variavel ao sistema } 
with aux* do 

begin item := it; { Afectar o conteúdo. } 

prox := 1 { Por o proximo a apontar } 

end; { para o apontado por 1. } 

1 : = aux { Por 1 a apontar para o elemento } 
end; 

Para listar os elementos de uma lista basta fazer: 

procedure listar( 1: Lista); 

var percorre : Lista; 
begin 

percorre := 1; { Começar a percorrer pela cabeca da lista) 
while percorre <> nil do{ Enquanto não chegar ao fim } 
begin { da lista .. } 

afixaf percorre A .item); { Afixar o elem. corrente. } 
percorre := percorre A .prox { Ir para o proximo ) 
end { elemento. } 

end; 

Para fazer a busca de um elemento basta alterar ligeira¬ 
mente o procedimento anterior. 

Considere-se para tal que o tipo Info é um registo com um 
campo ‘chave’ do tipo Codigo que identifica a informação. 
Assim e em relação ao procedimento listar, basta em vez de 
afixar o elemento, ver se é o elemento que pretendemos e se 
for parar o ciclo e devolver o apontador para o elemento. 

Podemos ainda convencionar que caso o elemento não 
exista, a função retorne o valor Nil. 

Assim, tem-se: 

function buscaDesord( id: Codigo; 1: Lista): Lista; 
var percorre : Lista; 

encontrou : boolean; { Diz se ja encontrou } 

begin 

encontrou := false; 

percorre := 1; {Começar a procurar pela cabeca da lista) 
while (percorre <> nil) { Enquanto não chegar ao fim } 
and not encontrou do { da lista e nao tiver encontrado) 


if percorre*.item.chave = id { Encontrou-se .. } 

then encontrou := true 

else { percorre* nao e o elemento desejado } 

percorre := percorre*.prox; { Ir para o proximo } 

{ elemento. } 

buscaDesord := percorre { Devolver o apontador para o ) 

{ elemento ou Nil, caso nao se ) 

end; { tenha encontradao. ) 


O procedimento para apagar um elemento é parecido com 
a função anterior, só com um senão. 

Repare-se que o que tem que se fazer é pôr o campo 
‘prox’ do elemento anterior ao que se desja apagar a apontar 
para o elemento imediatamente a seguir. 

Graficamente o que se tem que fazer, se se quiser eliminar 
o item2, é pôr o iteml a apontar para o elemento seguinte ao 
item2, ou seja o item3 ( Ver figura ). 
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Ora, para alterar o iteml tem que se ter um apontador para 
lá, o que implica que tenha que se andar sempre com um 
apontador para o elemento anterior ao corrente. 

Assim, e como o primeiro elemento da lista não tem 
nenhum elemento anterior, este tem que ser considerado 
como um caso separado. 

Repare-se ainda que como se vai remover o elemento, há 
que fazer o disposeQ do respectivo apontador. 

Tendo em conta o dito, o procedimento de remoção vem: 


procedure reraoveDesord( id: Codigo; var 1: Lista); 

var ante: Lista; { Apontador para o elem. anterior } 
corr: Lista; { Apontador para o elem. corrente } 
encontrou: boolean; { Diz se já encontrou ) 

begin 

if 1 <> nil then 

if I a . item.chave = id then { É o primeiro elemento) 
begin disposef 1); 

1 := nil 


end 

else begin 

ante := 1; { Inicializar ap. para anterior ) 

corr := I a . prox; ( Inicializar ap. para o corrente) 
encontrou := false; { Inicializar encontrou } 

while (corr <> nil) and not encontrou do 
if corr A .item.chave = id then 
encontrou := true 

else begin ante := corr; { Anterior passa a ser ) 

{ o corrente ) 

corr := corr A .prox { Corrente passa } 

{ a ser o proximo ) 


end; 

if encontrou then begin 

ante A .prox := corr A .prox; { Ligar o anterior ao) 

{ seguinte ) 

dispose( corr) { Dev. a variavel ao sistema ) 
end end 


end; 


3.3 Listas ordenadas 

As listas ordenadas não são mais que listas com a mesma 
estrutura das listas desordenadas, mas em que o campo 
chave dos vários elementos se encontram ordenados se¬ 
gundo uma determinada ordem. 

O operador que vamos usar para exprimir esta ordem é o 
operador menor ‘<’. 

Os únicos procedimentos distintos das listas desordena¬ 
das são todos aqueles que envolvem ou uma busca de algum 
elemento ou a introdução de um novo elemento. 

No primeiro caso estão incluidas o procedimento de remo¬ 
ção e a função de busca, enquanto que no segundo está 
incluido o procedimento de inserção. 

O procedimento de inserção difere do das listas desorde¬ 
nadas pois tem que se inserir o elemento de modo a que a lista 
mantenha a ordem desejada. Repare-se que nas listas desor¬ 
denadas nem sequer tinhamos em atenção qual era a chave 
do elemento a inserir. 

Já se está a ver então que em principio vamos ter que inserir 
o novo elemento entre dois elementos já existentes. 

Assim, graficamente vamos ter qualquer coisa como isto: 
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em que se verifica a condição: 

iteml.chave < iteml.chave < item2.chave 

sendo iteml o item a inserir. 

Como só podemos inserir quando encontrarmos o primeiro 
item cuja chave é maior do que a chave do item que se quer 
inserir, esta vai ser a condição de paragem. 

No entanto repare-se que como se tem que alterar o campo 
prox do elemento anterior, tem que se guardar sempre um 
apontador para o elemento anterior. 

Assim tendo em conta o gráfico apresentado em cima, 
depois da condição de paragem ser verificada, tem-se o 
apontador para o anterior a apontar para iteml e o apontador 
corrente a apontar para item2. 

Assim o procedimento de inserção fica com o seguinte 
aspecto: 


prodedure insereOrd( var it: info; var 1: Lista); 

var aux : Lista; { Guarda o elemento a inserir ) 

ante, corr: Lista; { Apontador para o anterior e ) 

begin new( aux); { corrente } 

aux A .item := it; 

f 1 = nil then begin { Se a lista é vazia... } 

1 := aux; 

I a .prox := nil 
end 

else if it.chave < I a . item.chave then begin 

( Elemento deve ficar à cabeca ) 
aux A .prox := 1 ; 

1 := aux end 

else begin 

ante := 1; corr := I a . prox; { Inic. anterior ) 

{ e corrente ) 

encontrou := false; 
while ( corr <> nil) and 
not encontrou do 
if it.chave < corr A .chave then 
encontrou := true ( Parar e inserir aqui } 
else begin ante := corr; 

corr := corr A .prox 

end; 

aux A .prox := corr; { Inserir finalmente o ) 
ante A .prox := aux { elemento j 

end 

end; 

A função de busca é parecida com o procedimento de 
inserção no que diz respeito ao ciclo While. 

Repare-se que a condição de paragem da busca é ou 
quando se encontra o elemento desejado (a chave é a 
mesma) ou quando a chave que se pretende é menor que a 
chave corrente ( de notar que a lista está ordenada e está-se 
a precorrer a lista de forma ascendente, de modo que se esta 
condição se verificar então a busca termina sem êxito). 

Podemos usar também aqui a convenção de que se a 
função devolver Nil então é porque a busca não teve êxito. 

Assim a função de busca tem a seguinte forma: 


function buscaOrden( id: Codigo; 1: Lista) : Lista; 
var result : Lista; { Guarda resultado final } 

corr : Lista; { Apontador para o item corrente j 

encontrou : boolean; { Assinala se a busca deve parar) 
begin encontrou := false; 
corr := 1; 
result := nil; 

while (corr <> nil) and not encontrou do 
if id <= corr A .item.chave then 

encontrou ;= true ( Busca pode parar } 

else corr := corr A .prox; ( Ir para o próximo } 

if encontrou then 

if id = corr A .item.chave then result := corr; 
buscaOrden := result 
end; 
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Quanto ao procedimento de remoção, ele é bastante 
idêntico ao das listas desordenadas, diferindo apenas no 
que diz respeito à condição de paragem. Aqui existe uma 
semelhança em relação à função de busca dada 
anteriormente, pois repare-se que' o procedimento de 
apagar envolve de certa forma uma busca (tem que se 
procurar o elemento que tem a chave desejada). 

Assim o procedimento de remoção em listas ordenadas 
fica qualquer coisa como isto: 


Carlos Ponte 


Assim o procedimento de remoção em listas ordenadas fica qualquer 
coisa como isto: 


procedure removeOrden( id: Código; var 1: Lista); 

var ante: Lista; { Apontador para o elem. anterior ) 

corr: Lista; ( Apontador para o elem. corrente ) 

encontrou: boolean; { Diz se já encontrou ) 

begin 

if 1 <> rlil then 

if id = 1~.item.chave then { É o primeiro elemento) 
begin dispose( 1); 

1 := nil 


end 

else begin 

ante := 1; { Inicializar ap. para anterior ) 

corr := l^.prox; { Inicializar ap. para o corrente) 
encontrou := false; { Inicializar encontrou ) 

while (corr <> nil) and not encontrou do 
if id <= corr'*. item. chave then 
encontrou := true 

else begin ante := corr; { Anterior passa a ser } 
{ o corrente ) 

corr := corr~.prox { Corrente passa) 
{ a se»’ o próximo ) 


end; 

if encontrou then 

if id = corr"'. item. chave then begin 

ante^.prox := corr^.prox; { Ligar o anterior ao) 
{ seguinte ) 

dispose( corr) { Dev. a variável ao sistema ) 
end end 


end; 
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OPINIÃO 


AS NOVAS TECNOLOGIAS DA 
INFORMAÇÃO NO ENSINO NO ANO 2000 


Quem se dedicar a fazer futurologia tem que ter a consciência da natureza 
altamente perigosa, irrelevante e até irresponsável que esta actividade 
geralmente assume. De facto, se por um lado é uma actividade perigosa para 
o autor uma vez que o seu grau de exposição é maior por ter que dissertar, 
não sobre factos actuais, mas sobre o que pensa que virá a acontecer no 
futuro, por outro lado não deixa, na maior parte dos casos, de ser uma 
actividade irrelevante uma vez que o destino da maior parte dos artigos ou dos 
estudos de futurologia é pura e simplesmente o esquecimento. E é irrespon¬ 
sável porque daqui a 10 ou 20 anos ninguém o criticará pelos erros cometidos 
nas previsões. 


MUDANÇAS PREVISÍVEIS 
NA EDUCAÇÃO 

Falar sobre cenários possíveis relati¬ 
vos ao papel a desempenhar pelas 
Novas Tecnologias da Informação 
(NTI) no ensino do ano 2000 assume 
todas estas características agravadas 
pelo facto de o ano 2000 estar aí, ao 
virar da esquina, a apenas uma mera 
década de distância o que faz com que 
os cenários a desenhar sejam, em gran¬ 
de parte, determinados por factores 
tecnológicos e sociais já existentes 
neste momento. Com efeito quer uns 
quer outros têm ciclos de vida bastante 
longos o que justifica assumir, como 
verdadeira, esta hipótese. Ficam assim 
de fora factores incontroláveis repre¬ 
sentados por inovações de tal forma 
radicais que impliquem rupturas mais 
ou menos imediatas no percurso tecno¬ 
lógico e social. 

Que o papel das NTI irá crescer na 
educação de uma maneira significativa 
é um facto de fácil previsão. Com efeito, 
depois de se ter assistido às mudanças 
estruturais profundas na agricultura e 
na indústria pelo recurso à automatiza¬ 
ção (basta lembrar que em alguns paí¬ 
ses como os EUA e a Bélgica, a mão de 
obra dedicada à agricultura desceu 
para níveis inferiores aos 3% da popu¬ 
lação activa), tem-se vindo a assistir, na 
década de 80, a investimentos cada vez 
mais avultados no sector dos serviços 
em que o exemplo mais flagrante tem 
sido a automatização dos escritórios. 
Com efeito, se na década de 70, o 
equipamento típico de um escritório, 
para além do mobiliário, consistia ape¬ 
nas no telefone, na fotocopiadora e em 
raros casos no dictafone, hoje em dia 
assiste-se a um proliferar de equipa¬ 
mentos nos escritórios com funcionali¬ 


dades cada vez mais diversificadas. 
Dentro de uma linha de evolução natural 
desta tendência de aumento da eficiên¬ 
cia dos sectores dos serviços, a década 
dos anos 90 estará para o ensino assim 
como a década dos anos 80 esteve para 
a automação dos escritórios, isto é, será 
a década onde se irá constatar uma 
penetração global e sistemática das NTI 
pelo recurso a investimentos cada vez 
mais avultados no sector. A própria 
lógica do crescimento global da econo¬ 
mia exige a criação destes novos mer¬ 
cados. 

Este acabar da situação actual da 
educação como sector de mão-de-obra 
intensiva com baixos níveis de investi¬ 
mento terá como consequência um 
aumento da rentabilidade global do 
mesmo. Estes fenómenos são análo¬ 
gos aos que se têm vindo a constatar na 
automação de escritórios e traduzir-se- 
ão no sector educativo na diminuição 
dos custos do sistema pela diminuição 
do insucesso escolar. 

O recurso cada vez maior às NTI no 
Ensino não trará, numa primeira fase, 
um aumento do desemprego dos pro¬ 
fessores por se ir assistir, nos próximos 
anos, ao aumento da importância da 
educação na vida de cada indivíduo, 
quer pelo maior número de anos que 
serão dedicados à aprendizagem na 
sua infância e juventude (formação ini¬ 
cial) quer pela cada vez maior tendência 
para encarar a educação como uma 
actividade que o indivíduo terá que 
realizar ao longo de toda a sua vida 
(formação contínua). Este acréscimo 
da importância global da educação na 
vida de cada indivíduo irá, com certeza, 
contrabalançar a influência negativa 
que a diminuição da natalidade e a 
introdução das NTI terá ao nível de 
emprego de professores. 



Contudo a introdução das NTI no 
ensino trará profundas alterações ao 
perfil tradicional do professor. 

A aceleração da velocidade a que o 
conhecimento é gerado ou modificado, 
a tendência para uma cada vez maior 
diversificação da sociedade obrigará a 
encarar a educação cada vez mais 
como uma actividade centrada no 
“ensinar a aprender” em detrimento da 
apresentação de factos, modificando 
drasticamente o papel do professor que 
deixará de ser exclusivamente o deten¬ 
tor e transmissor de conhecimentos. 

Nesta mudança de funções o profes¬ 
sor, o diagnóstico das necessidades de 
conhecimento dos alunos, a definição 
de conteúdos curriculares específicos, 
o facilitar o acesso às fontes do conhe¬ 
cimento, a formulação de projectos e a 
sua avaliação constituirão novas tare¬ 
fas que ocuparão o lugar da exposição 
escolástica de simples conteúdos serão 
enormemente facilitadas pelo recurso 
às NTI. 

POSSIBILIDADES TECNOLÓGICAS 

Entre os desenvolvimentos tecnoló¬ 
gicos mais relevantes no domínio da 
Educação iremos assistir ao apareci¬ 
mento de processadores cada vez mais 
baratos e poderosos (64 bits, proces¬ 
samento paralelo, multitarefa, etc.); de 
dispositivos de armazenamento e 
manipulação de imagens (vídeo, ani¬ 
mação, gráficos a 3 dimensões, etc.); 
de serviços standartizados e de maior 
qualidade no domínio das comunica- 
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OPINIÃO 


ções (correio electrónico, teletexto, te¬ 
levisão digital com recepção directa por 
satélite, teleconferência, etc.) e a de¬ 
senvolvimentos significativos no domí¬ 
nio das técnicas de Inteligência Artificial 
na aprendizagem, no apoio à produção 
de auxiliares de ensino e na gestão de 
actos pedagógicos. Estes desenvolvi¬ 
mentos tecnológicos concretizar-se-ão 
em inúmeros equipamentos e sistemas. 

O Caderno Electrónico será o mais 
divulgado, uma vez que cada aluno 
disporá de um desde a escola primária. 
Do ponto de vista funcional será equiva¬ 
lente aos microcomputadores actuais e 
serão utilizados na maior parte das 
vezes para a criação e armazenamento 
de textos e gráficos. Permitirão também 
a utilização de folhas de cálculo ou de 
linguagens de programação quando o 
aluno não pode aceder às Estações de 
Ensino (Learning Stations) de que fala¬ 
remos mais adiante. Os Cadernos Elec¬ 
trónicos serão equipamentos altamente 
portáteis com peso inferior a 1 kilo¬ 
grama e com o volume correspondente 
a um caderno de formato A4. Depois de 
aberto ocupará a área correspondente 
a duas folhas A4. Numa delas existirá o 
“ecrã” de cristais líquidos e na outra o 
teclado. Uma das maiores dificuldades 
actuais reside precisamente na conce- 
opção do teclado, dado o seu elevado 
custo e número de teclas necessárias, o 
que obriga ao recurso a soluções de 
fraca fiabilidade. A solução definitiva 
deste problema residirá no conheci¬ 
mento de caracteres manuscritos. 

Contudo, é difícil prever que esta 
técnica esteja disponível, no ano 2000, 
neste tipo de equipamentos devido às 
restrições inerentes ao peso e ao custo 
dos mesmos. 

As características extremamente 
sofisticadas das Estações de Ensino 
(Learning Stations) torná-las-ão caras, 
o que não impedirá, contudo, que não 
existam 4 ou 6 em cada sala de aula e 
uma em cada casa. Para além de pro¬ 
cessadores capazes de multiprocessa¬ 
mento e processamento paralelo dispo¬ 
rão de dispositivos de armazenamento 
óptico reescrevível e serão capazes de 
manipularem, em modo misto, texto, 
imagens estáticas e dinâmicas, audio e 
gráficos, incluindo animação e manipu¬ 
lação de imagens em 3 dimensões. 
Disporão, também de dispositivos de 
acesso a vários tipos de redes. Terão 
em linha de conta a existência, no ano 
2000, da possibilidade de recepção di¬ 
recta por satélite de imagnes de televi¬ 
são digitalizadas, de alta definição. 

Do ponto de vista funcional, estes 
equipamentos permitirão a manipula¬ 
ção de media de diversa natureza, o 
estabelecimeno de todo o tipo de comu¬ 


nicação e o acesso a grandes volumes 
de informação, tanto locais como remo¬ 
tos, para além do acesso a programas 
resultantes de aplicações de inteligên¬ 
cia artificial. 

As implicações no processo tradicio¬ 
nal de ensino, resultantes da utilização 
destes equipamentos, já começaram a 
ser vislumbradas neste momento. Os 
sistemas de ensino à distância, por 
satélite, com interacção entre alunos e 
professores através de correio electró¬ 
nico (de que o Projecto Euro-pace é 
apenas o começo na Europa); a utiliza¬ 
ção de videodiscos interactivos com 
dispositivos de fácil navegação na infor¬ 
mação armazenada, do tipo hipertexto; 
os programas de representação de 
conhecimento e de aprendizagem inteli¬ 
gente bem assim como os programas 
de tradução automática são já realida¬ 
des, (em alguns casos, nas suas fases 
iniciais de desenvolvimento) que irão 
revolucionar radicalmente os métodos 
clássicos do ensino. 

Veja-se por exemplo o caso da tradução 
automática. Quando estes programas 
tiverem ampla divulgação (e será antes 
do ano 2000) o ensino das línguas não 
voltará a ser como era dantes. Não 
porque deixe de haver necessidade de 
aprender línguas, mas pelo facto de se 
passar a dispôr de um meio que permi¬ 
tirá substituir o professor nas tarefas 
mais rotineiras de acompanhamento do 
aluno no domínio da sintaxe e da se¬ 
mântica de uma língua (com a vanta¬ 
gem de acesso com mais disponibilida¬ 
de à máquina do que ao professor, 
recurso cada vez mais caro). 

AS DIFICULDADES 

Depois de se terem exposto, em 
grandes traços, as principais linhas de 
desenvolvimento que o progresso tec¬ 
nológico irá permitir, é-se levado de 
imediato, à questão seguinte: “E, em 
Portugal, no ano 2000 será que iremos 
assistir ao aparecimento, em massa, 
nas nossas escolas de todos estes 
desenvolvimentos?”. 

Vários são os motivos que nos levam 
a ter algumas dúvidas que assim seja. O 
atraso enorme em termos de infra-es¬ 
truturas básicas no que diz respeito ao 
nosso sistema de ensino faz prever que 
a maior parte dos nossos recursos a 
investir no Sistema Educativo nos pró¬ 
ximos anos seja dedicada precisamen¬ 
te a suprir essas necessidades básicas 
que em muitos países da Europa foram 
solucionadas na década de 60. Muitas 
centenas de milhões de contos serão 
necessárias para a construção de uma 
rede de estabelecimentos de ensino 
limitada a 900 alunos; para a generali¬ 


zação da educação pré-escolar; para o 
alargamento do ensino básico até aos 
18 anos de idade; para o reforço de uma 
rede de institutos politécnicos e univer¬ 
sidades que permita uma cobertura de 
35% dos jovens da faixa etária corres¬ 
pondente ao ensino superior. 

A caracterização destes objectivos 
implica esforços de natureza ciclópica e 
não permitirá a libertação de grandes 
meios para o investimento em NTI no 
ensino, ao contrário do que irá aconte¬ 
cer com os nossos parceiros comunitá¬ 
rios que, como já foi dito, resolveram 
estes problemas básicos deste a déca¬ 
da de sessenta. Como referência, é de 
salientar que nos Estados Unidos a 
média nacional de alunos por compu¬ 
tador nas escolas secundárias e de 44.3 
enquanto que na maior parte das uni¬ 
versidades de prestígio é de 3. 

Apesar dos esforços recentes do 
Projecto Minerva, os computadores só 
chegaram a cerca de 200 escolas portu¬ 
guesas, deixando, no melhor dos ca¬ 
sos, de ser máquinas mágicas para 
serem instrumentos de trabalho pefei- 
tamente saturados uma vez que é fre¬ 
quente haver 300 a 500 alunos por 
computador. 

Contudo este não é o único proble¬ 
ma. Mais grave que a falta de capacida¬ 
de de investimentos nas NTI é a falta de 
preparação dos professores, não só 
dos já existentes no sistema, mas da¬ 
queles que, com uma licenciatura re¬ 
cente, ingressam no mesmo. 

Mas, o problema de formação e reci¬ 
clagem dos professores em NTI não é 
fáci de resolver. A produtividade das 
acções de formação contínua é extre¬ 
mamente baixa, limitando-se às vezes 
aos 5% da distribuição normal dos pro¬ 
fessores mais receptivos à inovação o 
que faz com que técnicos de Educação 
mais descrentes, entre os quais, alguns 
da Unesco, só acreditem na solução do 
problema de formação dos professores 
através da renovação das gerações. 

No estudo sobre a influência das 
gerações na dinâmica das modifica¬ 
ções a introduzir no sistema educativo 
relacionado com as NTI, será importan¬ 
te considerar, por um lado, a primeira 
geração de alunos universitários que 
teve acesso ao computador e, por ou¬ 
tro, a geração de estudantes que prota¬ 
gonizou a verdadeira revolução que 
constituiu a difusão maciça da Timex 
em meados da década de 80. 

O primeiro computador apareceu no 
sistema escolar português no ano de 
1967 na Faculdade de Ciências da 
Universidade do Porto. Considerando 
para esse efeito, a geração dos alunos 
que tinham 20 anos em 1965 vemos que 
foi esta a geração que mais tarde, em 
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1975, começou a ser a responsável 
pelas primeiras licenciaturas em infor¬ 
mática e, passados 20 anos, em 1985, 
foi responsável pelo lançamento de um 
projecto nacional de Introdução das NTI 
nas escolas, o Projecto Minerva. 

Por outro lado a primeira geração que 
começou a tratar com naturalidade os 
computadores foi a já referida geração 
que, com cerca de 15 anos ou menos, 
no Natal de 1985, encarou um sistema 
Timex como a prenda mais desejada. 
Esta geração terá 30 anos no ano 2000 
e nessa altura concerteza muita coisa 
mudará a nível local no que diz respeita 
às NTI! Mas, será necessário esperar 
pelo ano 2010 (ano em que desapare¬ 
cerá do mercado de trabalho a geração 
dos pioneiros) para esperar o apareci¬ 
mento de grandes projectos a nível 
nacional). 

Este cenário pessimista poderá ser 
alterado para melhor por dois motivos. 
Por um lado, a nossa integração nas 
Comunidades Europeias com todos os 
efeitos de arrastamento inerentes e, por 
outro lado, a aceleração do processo 
tecnológico. Afinal de contas, já vai 
fazer quase um mês que Steve Jobs 
apresentou ao público a sua espectacu- 


lar estação de trabalho Next. 

0 CAMINHO A SEGUIR 

Por maiores que sejam as dificulda¬ 
des, quer económicas quer no domínio 
da formação dos professores, julgo não 
haver aculturação dos nossos estudan¬ 
tes e professores às NTI. 

Para isso precisamos, como nação 
de: 

— Investir num programa sério de 
equipamentos, contemplando todos os 
estudantes e professores do ensino 
superior de modo a estes poderem dis¬ 
por de meios compatíveis, integrados 
em redes fiáveis de comunicação. O 
programa deverá contemplar institutos 
politécnicos e universidades e todos os 
perfis académicos (incluindo as Letras, 
as Artes, o Direito, etc.). 

— Exigir uma actualização curricular 
dos cursos superiores em face dos 
progressos a nível do conhecimento 
apurados pelas NTI. Especial interesse 
deverá ser dedicado à formação em 
Linguística Computacional dos nossos 
licenciados em Português a fim de não 
perdermos o domínio desse bem que 
tem sido nosso, mas que poderá deixar 


de ser, em detrimento de quem tiver 
maior conhecimento nesse domínio (a 
Alemanha, o Japão?). 

— Investir num programa sério de 
equipamento, contemplando todas as 
escolas não superiores, de modo a atin¬ 
girmos rapidamente o ratio de 30 estu¬ 
dantes por máquina. 

— Exigir ao sistema educativo a 
renovação curricular que a introdução 
destes meios poderá permitir. 

— Exigir do Ministério da Indúsria e 
do Sector Industrial em geral o devido 
acompanhamento destes projectos de 
investimento de maneira a aproveitá- 
los como força renovadora da indústria 
nacional. 

Se formos capazes de implementar 
uma política semelhante à exposta, as 
NTI terão no ano 2000, sem dúvida, um 
papel importante a desempenhar não 
só no processo educativo mas também 
no desenvolvimento global do País. 


In "Informática Hoje" — Dez. 1988 
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SOCAKTEI. 



SOCAKTKI. 


1 e PRÉMIO 

RICARDO PEREIRA 

MAIA 


Quero desde já felicitar-vos pelo vosso excelente trabalho aplicado na 
AMSTRAD MAGAZINE a qual aumentade qualidade desde o primeiro 
número. 

Venho por este meio, participar no vosso concurso mensal, com um 
programa em BASIC que se trata "basicamente" de um programa de 


desenho. Através da listagem, pode ver-se como utilizar certas funções 
(Pset, Preset, Circle, Line, etc.) de modo a que o utilizador possa fazer 
as modificações que desejar, ou então, criar o seu próprio programa. 
As instruções já estão incluídas na primeira listagem. 

As duas listagens têm de ser gravadas separadamente, mas aqui vai o 
procedimento correcto (no GWBASIC): 

— Depois de passada a primeira listagem, terá que gravá-la com SAVE 
"ARTE1 .BAS". De seguida faça NEW e passe a segunda listagem. 
Depois de passada, grave-a com SAVE "ARTE2.BAS". Depois para 
arrancar com o programa faça LOAD "ARTE1 ,BAS",r. 

Penso que por agora é tudo. 

Felicidades para o vosso trabalho. 

Nota: O leitor caso queira, só necessita de passara segunda listagem, 
pois esta é a principal, sendo a primeira apenas as instruções. 


PRIMEIRA LISTAGEM 


10 CLS:C0L0R 9,4,4:CLS:KEY OFF 

20 LOCATE 1,1 :PRINT V':F0R N=2 TO 79:L0CATE 1.N:PRINT "=":NEXT N10CATE 1,80:PRINT 
V:F0R N=2 TO 21;L0CATE N,80:PRINT T:NEXT N 

30 LOCATE 22,80:PRINT “+”:F0R N=79 TO 2 STEP -1 lOCATE 22,I\I:PRINT “=":NEXT N10CATE 
22,1 :PRINT V’:F0R N=21 TO 2 STEP -1 lOCATE N,1:PRINT;T:NEXT N 
40 COLOR 2:LOCATE 12,26:INPUT “Deseja Instruções (S/N) “;A$:PLAY “b" 

50 IF A$=”s" OR AS=”S” THEN 80 

60 IF A$=”n” OR AS="N" THEN LOAD “arte2.bas" 

70 IF ASo"s" OR ASo"S" OR A$o"n” OR A$o”N" THEN FOR N=11 TO 1510CATE N,20:PRINT 
":NEXT NiGOTO 40 

80 FOR N=11 TO 15:L0CATE N,20:PRINT" ":NEXT N 

90 LOCATE 12,20:INPUT" Deseja imprimir instruções (S/N) ";BS:PLAY “b" 

100IFBS="s" OR B$="S" THEN 970 
110 IF BS="n” OR B$=”N" THEN 130 

120 IF B$o"S” OR BSo”S” OR BSo"n" OR B$o”N" THEN LOCATE 12,20:PRINT “ 
":G0T0 90 

130 LOCATE 12,20:PRINT" “:COLOR 310CATE 3,35:PRINT “** ARTE 

**":C0L0R 7:LOCATE 5,30:PRINT “(Instruções Básicas)" 

140 LOCATE 2,3:COLOR 1:PRINT “Pág.1" 

150 COLOR 6:L0CATE 8.5:PRINT “ Bem vindo ao ARTE.um programa que permitir-lhe-á efectuar 
desenhos que" 

160 LOCATE 9,5:PRINT "posteriormente poderá utilizar nos seus programas.Este programa é cons- 


N:LOCATE 2,3:COLOR 1:PRINT “Pág.5" 

570 COLOR 6:LOCATE 8.5:PRINT “ TECLA ‘Z"’:L0CATE 9.5:PRINT “-" 

580 LOCATE 11,5:PRINT “Esta tecla,depois de premida,serve para limpar completamente o 
display." 

590 LOCATE 13,5:PRINT “ TECLA ‘R’ e T":L0CATE 14,5:PRINT “ --” 

600 LOCATE 16,5:PRINT “ Premindo R’,poderá desenhar linhas a partir sempre do mesmo ponto 
até” 

610 LOCATE 17,5:PRINT “outro ponto posteriormente escolhido.Enquanto premir ‘R’, ser-lhe-á de- 

620 LOCATE 18,5:PRINT "senhado sempre linhas.Premindo T termina a funçào." 

630 COLOR 13:LOCATE 21,21:PRINT"( PRIMA QUALQUER TECLA PARA CONTINUAR )" 

640 IF INKEY$="" THEN 640 

650 PLAY “b”:F0R N=6 TO 21: LOCATE N,2:PRINT “ ":NEXT 

NIOCATE 2,3:COLOR 1:PRINT “Pág.6" 

660 COLOR 6:LOCATE 8,5:PRINT “ TECLA ‘B^LOCATE 9,5:PRINT “- " 

670 LOCATE 11,5:PRINT “ Esta tecla. desenhar-lhe-á uma caixa do ponto onde premiu a tecla até" 
680 LOCATE 12,5:PRINT “ao ponto escolhido.Esta funçào depois de premida.tem outras opções" 
690 LOCATE 13,5:PRINT “tais como:" 

700 LOCATE 15,6:PRINT “‘B’ — > Caixa sem FILL":LOCATE 16,6:PRINT “*F — > Caixa com 
FILL":LOCATE 17,6:PRINT “T —> Limpa toda a area defenida" . 

710 COLOR 13:LOCATE 20,21:PRINT “( PRIMA QUALQUER TECLA PARA CONTINUAR )” 

720 IF INKEYS="" THEN 720 

730 PLAY “b":FOR N=6 TO 21 :LOCATE N,2:PRINT “ ":NEXT 

NIOCATE 2,3:C0L0R 1:PRINT "Pág.7" 

740 COLOR 610CATE 7,5:PRINT “ TECLAS DE C0NTR0LE”:L0CATE 8,5:PRINT" - 


170 LOCATE 10,5:PRINT “tituido por várias funções as quais podem ser chamadas a partir de alg- 

180 LOCATE 11,5:PRINT "umas teclas e suas respectivas funções." 

190 PRINT10CATE 13,5:PRINT “ TECLA 1’" 

200 LOCATE 14.5.PRINT "-" 

210 LOCATE 16.5:PRINT" Premindo ‘L’.o utilizador poderá a partir do ponto em que premiu esta “ 
220 LOCATE 17,5:PRINT "tecla até ao defenido posteriormente carregando novamente na mesma te- 

230 LOCATE 18,5:PRINT “cia,desenhar uma linha com qualquer ângulo." 

240 COLOR 13:LOCATE 21,21 :PRINT "( PRIMA QUALQUER TECLA PARA CONTINUAR )" 

250 IF INKEY$="" THEN 250 

260 PLAY “b":F0R N=6 TO 21:LOCATE N,2:PRINT “ “:NEXT 

N:LOCATE 2,3:COLOR 1:PRINT “Pág.2" 

270 COLOR 610CATE 8,5:PRINT " TECLA ‘D’”:LOCATE 9,5:PRINT " -" 

280 PRINT10CATE 11,5:PRINT “ Premindo esta tecla,o utilizador poderá nào só apagar possíveis 
er-" 

290 LOCATE 12,5:PRINT“rosefectuados no desenho, mas também‘andar’pelo desenho sem que" 
300 LOCATE 13,5:PRINT "nada apareça no seu monitor." 

310 LOCATE 15,5:PRINT “ TECLA ‘C’”:L0CATE 16,5:PRINT “-” 

320 LOCATE 18,5:PRINT “ Carregando nesta tecla, o utilizador poderá desenhar um círculo com” 
330 LOCATE 19.5:PRINT “raio do ponto em que carregou na tecla até ao ponto que posterior-” 
340 LOCATE 20,5:PRINT “mente escolheu." 

350 COLOR 13:LOCATE 21.21 :PRINT "( PRIMA QUALQUER TECLA PARA CONTINUAR )” 

360 IF INKEY$=”” THEN 360 

370 PLAY "b":FOR N=6 TO 21lOCATE N,2:PRINT “ “:NEXT 

N:LOCATE 2,3:COLOR 1:PRINT “Pág.3" 

380 COLOR 6:L0CATE 8,5:PRINT" TECLA X":LOCATE 9,5:PRINT “-" 

390 LOCATE 11,5:PRINT “ Esta tecla. permitir-lhe-á aumentar a velocidade do ponto,mas no" 
400 LOCATE 12,5:PRINT "entanto apenas poderá desenhar nos pontos após o intervalo de pixels” 
410 LOCATE 13,5:PRINT “por si defenidos (bom para círculos,caixas,etç)." 

420 LOCATE 15,5:PR!NT " TECLA ‘G’":LOCATE 16,5:PRINT "-" 

430 LOCATE 18,5:PRINT" Premindo esta tecla, ser-lhe-á perguntado o nome com que irá ser gra-” 
440 LOCATE 19,5:PRINT "vado o desenho e de seguida grava-o na mesma disquete do programa.” 
450 COLOR 13:LOCATE 21,21:PRINT "( PRIMA QUALQUER TECLA PARA CONTINUAR )” 

460 IF INKEYS="” THEN 460 

470 PLAY “b":F0R N=6 TO 21 lOCATE N.2.PRINT “ “:NEXT 

NIOCATE 2,3:COLOR 1:PRINT "Pág.4” 

480 COLOR 6:LOCATE 9,5:PRINT" TECLA ‘W’”:L0CATE 10,5:PRINT “- ” 

490 LOCATE 12,5:PRINT" Mesma funçào que a tecla ‘G’,mas ao contrário desta.o W serve para” 
500 LOCATE 13,5:PRINT “ler um desenho da disquete do programa." 

510 LOCATE 15,5:PRINT " TECLA ‘J'":LOCATE 16,5:PRINT “ -" 

520 LOCATE 17,5:PRINT" Serve para acabar o programa sem gravar o desenho e ir directamente" 
530 LOCATE 18,5:PRINT "para o DOS." 

540 COLOR 13:LOCATE 21,21:PRINT “( PRIMA QUALQUER TECLA PARA CONTINUAR )" 

550 IF INKEY$="” THEN 550 

560 PLAY “b":FOR N=6 TO 21:LOCATE N,2:PRINT “ “:NEXT 


750 LOCATE 10,6:PRINT “‘Q’ —> Para Cima":LOCATE 11.6.PRINT "‘A’ —> Para Baixo":LOCATE 
12,6:PRINT “‘O’ — > Para a Esquerda":LOCATE 13,6:PRINT "‘P’ —> Para a Direita" 

760 LOCATE 7,40:PRINT “AREA DE DESENHO":LOCATE 8,40:PRINT"-"lOCATE 

10,40:PRINT “640 x 200:":LOCATE 12.40:PRINT "Nível do ‘x’ — > 0 e 639“:LOCATE 13,40:PRINT 
“Nível do y — > 0 e 173" 

770 LOCATE 15.40:PRINT “320 x 200:”:LOCATE 17,40:PRINT “Nível do Y — > 0 e 319“:LOCATE 
18,40:PRINT “Nível do *y’ — > 0 e 173" 

780 COLOR 1310CATE 21,21:PRINT "( PRIMA QUALQUER TECLA PARA CONTINUAR )” 

790 IF INKEYS="" THEN 790 

800 PLAY "b":GOSUB2140:FOR N=6TO 21 lOCATE N,2:PRINT“ “:NEXT 

NIOCATE 2,3:COLOR 1:PRINT "Pág.9" 

810 COLOR 610CATE 8,6:PRINT "Caso os limites da area de desenho sejam 
ultrapassados, aparecerá uma” 

820 LOCATE 9,5:PRINT “mensagem de erro (isto nào acarreta qualquer modificação no desenho).” 
830 LOCATE 10,5:PRINT “ Qualquer problema com o programa,poderá ser resolvido contactando 
os" 

840 LOCATE 11,5:PRINT "nossos serviços para:" 

850 LOCATE 13,20:PRINT “ Ricardo Pereira" 

860 LOCATE 14,20:PRINT " Rua das rosas, n g 36, r/c esq.” 

870 LOCATE 15.20:PRINT" Moreira Maia" 

880 LOCATE 16,20:PRINT “ 4470 Maia" 

890 LOCATE 18.5:PRINT “ BONS DESENHOS !!!!!!” 

900 COLOR 1310CATE 21.21 :PRINT “( PRIMA QUALQUER TECLA PARA CONTINUAR )" 

910 IF INKEY$=”” THEN 910 

920 PLAY "b”:FOR N=2 TO 21 lOCATE N,2:PRINT" ":NEXT 

N 

930 LOCATE 12,20:INPUT “Deseja ver instruções novamente (S/N) “;C$:PLAY “b" 

940 IF CS="s” OR CS="S" THEN LOCATE 12,20:PRINT “ ":GOTO 80 

950 IF C$=”n" OR CS=”N" THEN L0AD"arte2.bas",R 

960 IF C$o"s" OR CSo"S" OR C$o"n" OR C$o”N” THEN LOCATE 12,20:PRINT “ 
":GOTO 930 

970 LOCATE 1 2, 17:PRINT" IMPRIMINDO... 

980 LPRINT 

990 LPRINT “* 

1000 LPRINT “* 

1010 LPRINT “* 

1020 LPRINT "* 

1030 LPRINT “* 

1040 

1050 LPRINT1PRINT 

1 060 LPRINT “ Bem vindo ao ARTE.um programa que permitir-lhe-á efectuar desenhos que poste- 


« ARTE 1.0» 

(Instruções Básicas) 

LPRINT 


1070 LPRINT “riormente poderá utilizar nos seus programas.” 

1080 LPRINT “ Este programa é constituído por várias funções as quais podem ser chamadas a" 
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1090 LPRINT “partir de algumas teclas e suas respectivas funções.” 

1100 LPRINT 

1110 LPRINT “ TECLAI’” 

1120 LPRINT “ -" 

1130 LPRINT 

1140 LPRINT “ Premindo ‘L’,o utilizador poderá a partir do ponto em que premiu esta tecla” 
1150 LPRINT “até ao defenido posteriormente carregando novamente na mesma 
tecla,desenhar uma" 

1160 LPRINT “linha com qualquer ângulo." 

1170 LPRINT 

1180 LPRINT" TECLA‘D’” 

1190 LPRINT" -” 

1200 LPRINT 

1210 LPRINT “ Premindo esta tecla,o utilizador poderá náo só apagar possíveis erros efectua- 

1220 LPRINT "dos no desenho,nas também ‘andar’ pelo desenho sem que nada apareça no 
monitor." 

1230 LPRINT 

1240 LPRINT" TECLA‘C’” 

1250 LPRINT" -” 

1260 LPRINT 

1270 LPRINT “Carregando nesta tecla,o utilizador poderá desenhar um círculo com raio do" 
1280 LPRINT "ponto em que carregou na tecla até ao ponto que posteriormente escolheu." 
1290 LPRINT 

1300 LPRINT" TECLA‘X’” 

1310 LPRINT" -” 

1320 LPRINT 

1330 LPRINT " Esta tecla, permitir-lhe-á aumentar a velocidade do ponto,mas no 
entanto,apenas" 

1340 LPRINT “desenhará nos pontos após o intervalo de pixels por si defenido (bom para cír- 

1350 LPRINT “culos,caixas,etç).” 

1360 LPRINT 

1370 LPRINT" TECLA‘B’” 

1380 LPRINT" -” 

1390 LPRINT 

1400 LPRINT" Esta tecla, desenhar-lhe-á uma caixa do ponto onde premiu a tecla até ao ponto" 
1410 LPRINT "escolhido.Esta função depois de premida,tem outras opções tais como:” 

1420 LPRINT 

1430 LPRINT" *B’ —> Caixa sem FILL" 

1440 LPRINT “ T —> Caixa com FILL" 

1450 LPRINT “ T —> Limpa toda a area defenida” 

1460 LPRINT 

1470 LPRINT" TECLA ‘G’” 

1480 LPRINT" -” 

1490 LPRINT 

1500 LPRINT" Premindo esta tecla, ser-lhe-á perguntado o nome com que irá ser gravado o de- 

1510 LPRINT “senho e de seguida grava-o na mesma disquete do programa." 

1520 LPRINT 

1530 LPRINT" TECLA’W”’ 

1540 LPRINT" -” 

1550 LPRINT 

1560 LPRINT" Esta tecla, far-lhe-á o mesmo que a tecla ‘G’, mas ao contrário desta,o‘W’” 
1570 LPRINT “serve para ler um desenho da disquete.” 

1580 LPRINT 

1590 LPRINT" TECLA‘J’” 

1600 LPRINT" -" 

1610 LPRINT 

1620 LPRINT “ Serve para acabar o programa,sem gravar o desenho e ir directamente para o” 
1630 LPRINT "DOS." 

1640 LPRINT 


1650 LPRINT “ TECLA 7”’ 

1660 LPRINT" -" 

1670 LPRINT 

1680 LPRINT “ Esta tecla,depois de premida,serve para limpar completamente o display." 
1690 LPRINT 

1700 LPRINT " TECLA‘R’e T" 

1710 LPRINT" -” 

1720 LPRINT 

1730 LPRINT “ Premindo ‘R’,poderá desenhar linhas a partir sempre do mesmo ponto até” 
1740 LPRINT "outro ponto posteriormente escolhido.Enquanto premir R', desenhar-lhe-á" 
1750 LPRINT "sempre linhas.Premindo T termina a funçào." 


1760 LPRINT 

1770 LPRINT" TECLA Y” 

1780 LPRINT" -" 

1790 LPRINT 

1800 LPRINT" Premindo ‘V,poderá mudar a cor do ponto:" 

1810 LPRINT “ (só possível no modo de resolução 1)":LPRINT 
1820 LPRINT" 0 = Preto" 

1830 LPRINT" 1 = Azul” 

1840 LPRINT" 2 = Vermelho” 

1850 LPRINT “ 3 = Branco":LPRINT 
1860 LPRINT “ TECLAS DE CONTROLE 

1870 LPRINT" - 

1880 LPRINT 

1890 LPRINT" Q’ —> Para Cima 
1900 LPRINT “ ‘A’ —> Para Baixo” 

1910 LPRINT " ‘O’—> Para a Esquerda 
1920 LPRINT" ’P’—> Para a Direita 
1930 LPRINT 

1940 LPRINT" 320x200:" 

1950 LPRINT 

1960 LPRINT" Nível do‘x’—>0e319“ 

1970 LPRINT “ Nível do ‘y’ —> 0 e 173" 

1980 LPRINT 

1990 LPRINT “ Caso ultrapasse a area de desenho,aparecerá uma mensagem de erro (isso" 
2000 LPRINT "náo acarreta qualquer modificação no desenho)." 

2010 LPRINT " Qualquer problema com o programa poderá ser resolvido contactando os” 
2020 LPRINT “nossos serviços para:" 


AREA DE DESENHO” 

640 x 200:” 

Nível do ‘x’ —> 0 e 639" 
Nível do y—> 0 e 173" 


2030 LPRINT 

2040 LPRINT" Ricardo Pereira” 

2050 LPRINT “ Rua das rosas,n 9 36,r/c esq.” 

2060 LPRINT" Moreira Maia” 

2070 LPRINT" 4470 Maia" 

2080 LPRINT 

2090 LPRINT “(c)1989 RICARDO PEREIRA” 


2100 LPRINT “Todos os direitos reservados” 


2110 LPRINT "(Venda Proibida)" 

2120 LPRINT:LPRINT:LPRINT 

2130 LOCATE 12,20:PRINT” FIM DE IMPRESSÃO ":GOTO130 

2140 FOR N=6 TO 21 :LOCATE N,2:PRINT “ “:NEXT NIOCATE 

2,3:COLOR 1:PRINT "Pág.8" 

2150 COLOR 6:LOCATE 8,5:PRINT "TECLA ‘V’” 

2160 LOCATE 9,5:PRINT “-" 

2170 LOCATE 11,5:PRINT “Premindo Y,poderá mudara cor do ponto:" 

2180 LOCATE 12,5:PRINT "(só possível no modo de resolução 2)" 

2190 LOCATE 14.5.PRINT “ 0 = Preto” 

2200 LOCATE 15,5:PRINT" 1 = Azul” 

2210 LOCATE 16,5:PRINT “ 2 = Vermelho" 

2220 LOCATE 17,5:PRINT" 3 = Branco” 

2230 COLOR 13.LOCATE 20,21 :PRINT"( PRIMA QUALQUER TECLA PARA CONTINUAR )” 

2240 IF INKEYS="" THEN 2240 
2250 PLAY "b”:RETURN 


SEGUNDA LISTAGEM 

10REM ** ARTE 1.0** 

20 REM 

30REM ** POR RICARDO PEREIRA ** 

40 REM 

50 REM ** PROGRAMA PRINCIPAL ** 

60 REM 
70 REM 

80 KEY OFF.GOTO 2460 

90 CLEAR:X=316:Y=86:SALTO=1 :SCREEN 2:KEY OFF 
100 A$=INKEY$:LOCATE 23,1:PRINT “x="X;" ";’’y="Y 
110 IF AS="o" OR A$=”0" THEN X=X-SALTO 
120 IF A$=”p" OR AS="P" THEN X=X+SALTO 
130 IF A$=”q" OR A$="Q” THEN Y=Y-SALTO 
140 IF AS=”a" OR AS=”A” THEN Y=Y+SALT0 

150 IF A$="j” OR A$="J" THEN LOCATE 23,1:INPUT "TEM A CERTEZA (S/N) ";CS:IF C$=”s” OR 
C$=’’S" THEN SYSTEM ELSE LOCATE 23,1 :PRINT" 

160 IF A$=”l” OR A$=”L" THEN GOSUB 330:CHECK=0:LOCATE 23,1:PRINT" 

170 IF A$="d” OR AS="D” THEN GOSUB 490:CHECK=0:LOCATE 23,1 :PRINT" 

180 IF A$=”c" OR AS="C" THEN GOSUB 630:CHECK=0:LOCATE 23,1 :PRINT “ 

190 IF A$=”x" OR A$="X" THEN LOCATE 23,1:INPUT "NUMERO DE PIXELS: ",SALTO:LOCATE 
23,1 :PRINT “ 

200 IF A$=”b" OR AS="B” THEN GOSUB 790:CHECK=0:LOCATE 23,1 :PRINT “ 

210 IF AS=”g” OR AS="G" THEN GOSUB 960 
220 IF AS="w” OR A$="W” THEN GOSUB 1030 

230 IF X<0 THEN FOR N=1 TO 130:LOCATE 23,1:PRINT “SAIU DA ZONA DE DESENHO...":NEXT 
N:LOCATE 23,1 :PRINT “ ":X=X+SALTO+1 

240 IF X>639 THEN FOR N=1 TO 1301OCATE 23,1 :PRINT "SAIU DA ZONA DE DESENHO...”:NEXT 
NIOCATE 23,1 :PRINT “ “:X=X-SALTO-1 

250 IF Y<0 THEN FOR N=1 TO 130:LOCATE 23,1:PRINT “SAIU DA ZONA DE DESENHO...”:NEXT 
NIOCATE 23,1 :PRINT" “:Y=Y+SALTO 

260 IF Y>173 THEN FOR N=1 TO 130.LOCATE 23,1:PRINT "SAIU DA ZONA DE DESENHO...”:NEXT 


NIOCATE 23,1 :PRINT “ “:Y=Y-SALTO 

270 IF AS="z” OR A$=”Z” THEN LOCATE 23.1.INPUT “TEM A CERTEZA (S/N) “;CS 

280 IF C$="s" OR CS="S” THEN CLS.LOCATE 23,1 :PRINT “ “:C$="nada”:GOTO 

90 

290 IF C$=”n” OR CS=”N” THEN LOCATE 23.1 :PRINT “ ":C$=”nada" 

300 IF A$=”r" OR AS="R” THEN GOSUB 1110:CHECK=0:LOCATE 23,1 :PRINT" 

310PSET (X,Y) 

320 GOTO 100 

330 C=X:D=Y:PSET (X,Y):X=X+1:Y=Y+1 

340 IF CHECK=1 THEN LOCATE 23.50:PRINT “ ":RETURN 

350 AS=INKEYS:LOCATE 23,1 :PRINT “LINHA LIGADA 

360 IF AS="x" OR A$="X" THEN LOCATE 23,1:INPUT "NUMERO DE PIXELS: ",SALTO:LOCATE 
23.1 :PRINT “ 

370 IF AS="o” OR AS="0" THEN X=X-SALTO 
380 IF A$="p" OR AS="P" THEN X=X+SALTO 
390 IF AS=”q” OR AS=”Q” THEN Y=Y-SALTO 
400 IF AS="a" OR AS="A” THEN Y=Y+SALTO 

410 IF AS=”j" OR AS=”J” THEN LOCATE 23.1:INPUT "TEM A CERTEZA (S/N) ";CS:IF CS=”s" OR 
C$=”S” THEN SYSTEM ELSE LOCATE 23,1 :PRINT “ 

420 IF A$=T OR AS="L" THEN CHECK=1:LINE (C,D)-(X,Y):FOR N=1 TO 130:LOCATE 23,1:PRINT 
“LINHA DESLIGADA”:NEXT NIOCATE 23,1 :PRINT “ 

430 IF X<0 THEN FOR N=1 TO 13010CATE 23,1:PRINT "SAIU DA ZONA DE DESENHO..,”:NEXT 
NIOCATE 23,1 :PRINT “ “:X=X+SALTO+1 

440 IF X>639 THEN FOR N=1 TO 130:LOCATE 23.1.PRINT “SAIU DA ZONA DE DESENHO...":NEXT 
NIOCATE 23,1 :PRINT “ ":X=X-SALTO-1 

450 IF Y<0 THEN FOR N=1 TO 130:LOCATE 23.1.PRINT "SAIU DA ZONA DE DESENHO...”:NEXT 
NIOCATE 23,1 :PRINT “ “:Y=Y+SALTO 

460 IF Y>173 THEN FOR N=1 TO 130:LOCATE 23.1.PRINT “SAIU DA ZONA DE DESENHO...”:NEXT 
NIOCATE 23,1 :PRINT “ ":Y=Y-SALTO 

470 PSET (X,Y):PRESET (X,Y):LOCATE 23,50:PRINT "x="X;" “;"y=”Y 
480 GOTO 340 

490 LOCATE 23,1:PRINT "PONTO DESLIGADO “:AS=INKEY$:IF CHECK=1 THEN LOCATE 
23,50:PRINT “ “:RETURN 
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500 IF X<0 THEN FOR N=1 TO 130:LOCATE 23.1.PRINT "SAIU DA ZONA DE DESENHO...”:NEXT 
NiLOCATE 23,1 :PRINT “ “:X=X+SALT0+1 

510 IFX>639THEN FOR N=1 TO 130:LOCATE 23,1:PRINT "SAIU DA ZONA DE DESENHO...”:NEXT 
NiLOCATE 23,1 iPRINT “ “:X=X-SALTO-1 

520 IF Y<0 THEN FOR N=1 TO 130:LOCATE 23,1:PRINT “SAIU DA ZONA DE DESENHO...”:NEXT 
NiLOCATE 23,1 :PRINT “ “:Y=Y+SALTO 

530 IF Y>173 THEN FOR N=1 TO 130:LOCATE 23,1:PRINT "SAIU DA ZONA DE DESENHO...”:NEXT 
NiLOCATE 23,1 :PRINT “ ":Y=Y-SALTO 

540 IF A$=”x” OR AS=”X" THEN LOCATE 23,1:INPUT "NUMERO DE PIXELS: ",SALTO:LOCATE 

23,1 :PRINT “ 

550 PSET (X,Y):PRESET (X,Y):LOCATE 23,50:PRINT “x=”X;” “;”y="Y 

560 IF A$=”o” OR A$="0” THEN X=X-SALTO 

570 IF A$=’’p” OR A$=”P" THEN X=X+SALTO 

580 IF AS=”q" OR A$=”Q” THEN Y=Y-SALTO 

590 IF AS=”a” OR A$=”A” THEN Y=Y+SALTO 

600 IF A$=”d” OR AS="D” THEN CHECK=1 :FOR N=1 TO 13010CATE 23,1 :PRINT “PONTO LIGADO 
“:NEXT NIOCATE 23,1 iPRINT" 

610 IF AS=’’j” OR A$=’’J” THEN LOCATE 23,1:INPUT “TEM A CERTEZA (S/N) “;C$:IF CS=”s" OR 
CS=”S” THEN SYSTEM ELSE LOCATE 23,1 :PRINT" 

620 GOTO 490 

630 C=X:D=Y:X=X+1 :Y=Y+1 :PSET (X,Y) 

640 LOCATE 23,1:PRINT “CIRCULO LIGADO ":AS=INKEY$:IF CHECK=1 THEN LOCATE 
23,50:PRINT “ “:RETURN 

650 IF AS=”x” OR AS=”X” THEN LOCATE 23,1:INPUT "NUMERO DE PIXELS: ", SALTO: LOCATE 

23,1 :PRINT “ 

660 IF AS=”o” OR AS="0” THEN X=X-SALTO 
670 IF A$="p" OR A$=”P” THEN X=X+SALTO 
680 IF A$="q” OR A$="Q" THEN Y=Y-SALTO 
690 IF AS="a” OR A$="A" THEN Y=Y+SALTO 

700 IF X<0 THEN FOR N=1 TO 130.LOCATE 23,1:PRINT "SAIU DA ZONA DE DESENHO...”:NEXT 
NiLOCATE 23,1 :PRINT “ ":X=X+SALTO+1 

710 IF X>639 THEN FOR N=1 TO 130:LOCATE 23.1.PRINT "SAIU DA ZONA DE DESENHO...”:NEXT 
NiLOCATE 23,1 :PRINT" ":X=X-SALTO-1 

720 IF Y<0 THEN FOR N=1 TO 130:LOCATE 23,1:PRINT “SAIU DA ZONA DE DESENHO...":NEXT 
NiLOCATE 23,1 iPRINT" ":Y=Y+SALTO 

730 IF Y>173 THEN FOR N=1 TO 130:LOCATE 23,1 .PRINT “SAIU DA ZONA DE DESENHO...”:NEXT 

NiLOCATE 23,1 iPRINT" ":Y=Y-SALTO 

740 PSET (X.Y)iPRESET (X,Y):E=C:F=D:LOCATE 23,50:PRINT “x="X;" “;”y=”Y 

750 IF A$=”c” OR AS=”C” THEN CHECK=1 :RES1=(C-X):RES2=(D-Y):RAIO=SQR 

(RES1 A 2+RES2 A 2):CIRCLE (E,F),(RAIO):FOR N=1 TO 130:LOCATE 23,1 iPRINT “CIRCULO FEITO 

"iNEXT NiLOCATE 23,1 iPRINT " 

760 PRESET (C,D) 

770 IF A$=”j” OR A$="J” THEN LOCATE 23,1:INPUT “TEM A CERTEZA (S/N) ";C$:IF C$=”s” OR 
C$="S" THEN SYSTEM ELSE LOCATE 23,1 iPRINT" 

780 GOTO 640 

790 C=X:D=Y:X=X+1 :Y=Y+1 

800 LOCATE 23,1 .PRINT “CONSTRUINDO CAIXA ":AS=INKEYS:IF CHECK=1 THEN LOCATE 
23,50:PRINT “ "iRETURN 

810 IF X<0 THEN FOR N=1 TO 13010CATE 23,1:PRINT “SAIU DA ZONA DE DESENHO...”:NEXT 
NiLOCATE 23,1 iPRINT “ “:X=X+SALTO+1 

820 IF X>639 THEN FOR N=1 TO 130:LOCATE 23,1 iPRINT "SAIU DA ZONA DE DESENHO...":NEXT 
NiLOCATE 23,1 iPRINT" “:X=X-SALTO-1 

830 IF Y<0 THEN FOR N=1 TO 130:L0CATE 23,1:PRINT "SAIU DA ZONA DE DESENHO...”:NEXT 
NiLOCATE 23,1 iPRINT" “:Y=Y+SALTO 

840 IF Y>173 THEN FOR N=1 TO 130:LOCATE 23,1 iPRINT “SAIU DA ZONA DE DESENHO...”:NEXT 

NiLOCATE 23,1 iPRINT “ ":Y=Y-SALTO 

850 PSET (X,Y):PRESET (X,Y):LOCATE 23,50:PRINT “x=”X;" “;"y=’’Y 

860 IF A$=”x” OR A$="X” THEN LOCATE 23.1.INPUT “NUMERO DE PIXELS: “.SALTO:LOCATE 

23,1 iPRINT" 

870 IF A$="o’’ OR A$=”0" THEN X=X-SALTO 
880 IF A$="p’’ OR AS="P” THEN X=X+SALTO 
890 IF A$=”q” OR AS="Q" THEN Y=Y-SALTO 
900 IF A$=”a” OR A$="A” THEN Y=Y+SALTO 

910 IF A$=”b" OR A$=”B” THEN CHECK=1:PSET (C,D):LINE (C,D)-(X,Y),1,B:FOR N=1 TO 
13010CATE 23,1 iPRINT "CAIXA CONSTRUÍDA "iNEXT NiLOCATE 23,1 iPRINT “ 

920 IF AS=”f” OR A$=”F” THEN CHECK=1:PSET (C,D):LINE (C,D)-(X,Y),1,BF:FOR N=1 TO 
130:LOCATE 23,1 iPRINT "CAIXA CONSTRUÍDA “iNEXT NiLOCATE 23,1 iPRINT " 

930 IF A$=”i” OR A$='T’ THEN CHECK=1 :PSET (C,D):LINE (C,D)-(X,Y),0,BF 

940 IF A$=”j" OR A$="J” THEN LOCATE 23,1:INPUT "TEM A CERTEZA (S/N) ";CS:IF CS=”S” OR 

C$=”s” THEN SYSTEM ELSE LOCATE 23,1 iPRINT “ 

950 GOTO 800 

960 LOCATE 23,1 ilNPUT “QUAL O NOME DO DESENHO (max. 8 carc.): ",DES$:LOCATE 23,1 iPRINT 

970 IF LEN (DES$)<1 OR LEN (DESS)>8THEN LOCATE 23,1 iPRINT“ ":GOTO 

960 

980 LOCATE 23,1 iPRINT “ "iPRESET (X,Y) 

990 DEF SEG=&HB800 
1000 BSAVE DES$,0,&H4000 

1010 FOR N=1 TO 130:LOCATE 23,1 iPRINT “DESENHO GRAVADO "iNEXT 

NiLOCATE 23,1 iPRINT “ 

1020 RETURN 

1030 LOCATE 23,1:INPUT "QUAL O NOME DO DESENHO: “,DES$ 

1040 IF LEN (DES$)<1 OR LEN (DES$)>8THEN LOCATE 23,1 iPRINT" “:GOTO 

1030 

1050 LOCATE 23,1 iPRINT “PROCURANDO... 

1060 DEF SEG=&HB800 
1070 BLOAD DES$,0 

1080 LOCATE 23,1 :FOR N=1 TO 130:LOCATE 23,1 iPRINT "DESENHO PROGRAMADO 
"iNEXT N 

1090 LOCATE 23,1 iPRINT” 

1100 RETURN 

1110 C=X:D=Y:X=X+1 :Y=Y+1 

1120 LOCATE 23,1 iPRINT “PRODUZIR RAIOS”:AS=INKEY$:IF CHECK=1 THEN LOCATE 

23,50:PRINT “ "iLOCATE 23,1 .PRINT “ “iRETURN 

1130 IF A$="o" OR A$=”0” THEN X=X-SALTO 

1140 IF AS=”p” OR A$=”P” THEN X=X+SALTO 

1150 IF A$=”q" OR A$=”Q” THEN Y=Y-SALTO 


1160 IF AS=”a” OR A$="A” THEN Y=Y+SALTO 

1170 IF AS=”x” OR A$=”X” THEN LOCATE 23,1:INPUT “NUMERO DE PIXELS: ",SALTO:LOCATE 

23,1 :PRINT“ 

1180 IF X<0 THEN FOR N=1 TO 130:LOCATE 23,1 iPRINT “SAIU DA ZONA DE DESENHO...”:NEXT 
NiLOCATE 23,1 iPRINT" ":X=X+SALTO 

1190 IF X>639 THEN FOR N=1 TO 130:LOCATE 23,1 iPRINT “SAIU DA ZONA DE DESENHO..,”:NEXT 
NiLOCATE 23,1 iPRINT" “:X=X-SALTO 

1200 IF Y<0 THEN FOR N=1 TO 130:LOCATE 23.1.PRINT “SAIU DA ZONA DE DESENHO..,”:NEXT 

NiLOCATE 23,1 iPRINT “ “:Y=Y+SALTO 

1210 IF Y>173 THEN FOR N=1 TO 130:LOCATE 23,1 iPRINT “SAIU DA ZONA DE DESENHO...”:NEXT 

NiLOCATE 23,1 iPRINT “ “:Y=Y-SALTO 

1220 PSET (X,Y):PRESET (X.Y)iLOCATE 23,50:PRINT “x=”X;” “;”y=”Y 

1230 IF A$=”r” OR A$=”R” THEN LINE (C,D)-(X,Y) 

1240 IF A$=”j” OR A$=”J” THEN LOCATE 23.1.INPUT “TEM A CERTEZA (S/N) ";C$:IF CS=”S” OR 
CS="s” THEN SYSTEM ELSE LOCATE 23,1 iPRINT" 

1250 IF A$=”t” OR A$=”T” THEN CHECK=1 
1260 GOTO 1120 

1270 CLEAR:X=149:Y=86:SALTO=1 iSCREEN 1:COR=3 
1280 A$=INKEY$:LOCATE 23,1 iPRINT “x=”X;" ";”y=”Y 
1290 IF A$=”o” OR AS=”0” THEN X=X-SALTO 
1300 IF A$="p” OR A$=”P” THEN X=X+SALTO 
1310 IF AS="q” OR AS="Q" THEN Y=Y-SALTO 
1320 IF AS=”a” OR AS="A” THEN Y=Y+SALTO 

1330 IF A$="j” OR AS=”J” THEN LOCATE 23,1 iPRINT “ “iLOCATE 23,1 ilNPUT “TEM 

A CERTEZA (S/N) ";C$:IF C$=”s” OR C$=’’S” THEN SYSTEM ELSE LOCATE 23,1 iPRINT “ 

1340 IF A$=T OR AS=”L” THEN GOSUB1510:CHECK=0:LOCATE 23,1 iPRINT “ 

1350 IF A$=”d” OR AS=”D" THEN GOSUB 1670:CHECK=0:LOCATE 23,1 iPRINT" 

1360 IF AS=”c” OR AS=”C” THEN GOSUB 1810:CHECK=0:LOCATE 23,1 iPRINT “ 

1370 IF AS="x" OR A$=”X" THEN LOCATE 23,1 ilNPUT "NUMERO DE PIXELS: ",SALTO:LOCATE 

23,1 iPRINT" 

1380 IF AS="b" OR A$="B" THEN GOSUB 1970:CHECK=0:LOCATE 23,1 iPRINT" 

1390 IF A$=”w” OR A$="W” THEN GOSUB 2210 

1400 IF X<0THEN FOR N=1 T0130:LOCATE 23,1 iPRINT “SAIU DA AREA... "iNEXT NiLOCATE 

23,1 iPRINT" “:X=X+SALTO+1 

1410 IF X>319 THEN FOR N=1 TO 130:LOCATE 23,1:PRINT “SAIU DA AREA... “iNEXT 

NiLOCATE 23,1 .PRINT “ “:X=X-SALTO-1 

1420 IF YcOTHEN FOR N=1 TO 130.LOCATE 23,1 iPRINT “SAIU DA AREA... “iNEXT NiLOCATE 

23,1 iPRINT" “:Y=Y+SALTO 

1430 IF Y>173 THEN FOR N=1 TO 130:LOCATE 23,1:PRINT “SAIU DA AREA... “iNEXT 

NiLOCATE 23,1 iPRINT “ ":Y=Y-SALTO 

1440 IF AS=”z” OR AS=”Z” THEN LOCATE 23,1 iPRINT “ “iLOCATE 23,1:INPUT 

“TEM A CERTEZA (S/N) ";CS 

1450 IF C$="s" OR C$="S” THEN CLSíLOCATE 23,1 iPRINT" ":C$=”nada":GOTO 

1270 

1460 IF C$=”n" OR CS="N” THEN LOCATE 23,1 iPRINT " ":C$=”nada” 

1470 IF A$="r" OR C$="R” THEN GOSUB 2290:CHECK=0:LOCATE 23,1 iPRINT “ 

1480 IF AS=V OR AS="V” THEN LOCATE 23,1 iPRINT “ “iLOCATE 23,1 ilNPUT "Nova 

cor: “,COR:LOCATE 23,1 iPRINT “ 

1490 PSET (X,Y),COR 
1500 GOTO 1280 

1510 C=X:D=Y:PSET (X,Y):X=X+1:Y=Y+1 

1520 IF CHECK=1 THEN RETURN 

1530 AS=INKEYS:LOCATE 23,1 iPRINT "LINHA LIGADA " 

1540 IF A$=”x” OR AS=”X” THEN LOCATE 23,1 iPRINT “ "iLOCATE 23,1 ilNPUT 

“NUMERO DE PIXELS: ",SALTO:LOCATE 23.1 iPRINT" 

1550 IF A$="o” OR A$=”0” THEN X=X-SALTO 
1560 IF AS="p” OR A$=”P” THEN X=X+SALTO 
1570 IF AS="q” OR AS="Q” THEN Y=Y-SALTO 
1580 IF A$="a” OR A$=”A” THEN Y=Y+SALTO 

1590 IF A$=”j" OR AS="J" THEN LOCATE 23,1 iPRINT “ “iLOCATE 23,1 ilNPUT 

“TEM A CERTEZA (S/N) “;CS:IF CS="s” OR C$=”S” THEN SYSTEM ELSE LOCATE 23,1 iPRINT “ 

1600 IF AS=T OR A$=”L" THEN CHECK=1:LINE (C,D)-(X,Y),COR:FOR N=1 TO 130:LOCATE 

23,1 iPRINT “LINHA DESLIGADA “iNEXT NiLOCATE 23,1 iPRINT" ":GOTO 

1520 

1610 IF X<0 THEN FOR N=1 T0130:LOCATE 23,1 iPRINT "SAIU DA AREA... “iNEXT NiLOCATE 

23,1 iPRINT" “:X=X+SALTO+1 

1620 IF X>319 THEN FOR N=1 TO 130:LOCATE 23,1:PRINT “SAIU DA AREA... "iNEXT 

NiLOCATE 23,1 iPRINT “ “:X=X-SALTO-1 

1630 IFY<0 THEN FOR N=1 T0130:LOCATE 23,1 iPRINT “SAIU DA AREA... “iNEXT NiLOCATE 

23,1 iPRINT “ “:Y=Y+SALTO 

1640 IF Y>173 THEN FOR N=1 TO 130:LOCATE 23,1 iPRINT "SAIU DA AREA... "iNEXT 

NiLOCATE 23,1 iPRINT" ":Y=Y-SALTO 

1650 PSET (X,Y):PRESET (X,Y):LOCATE 23,20:PRINT “x="X;” “;”y="Y 

1660 GOTO 1520 

1670 A$=INKEY$:LOCATE 23,1 iPRINT “PONTO DESLIGADO" 

1680 IF X<0 THEN FORN=1 TO 130:LOCATE 23,1 iPRINT “SAIU DA AREA... “iNEXT NiLOCATE 

23,1 iPRINT" ":X=X+SALTO+1 

1690 IF X>319 THEN FOR N=1 TO 130:LOCATE 23,1 iPRINT “SAIU DA AREA... “iNEXT 

NiLOCATE 23,1 iPRINT “ “:X=X-SALTO-1 

1700 IF YcOTHEN FOR N=1 T0130:LOCATE 23,1 .PRINT “SAIU DA AREA... “iNEXT NiLOCATE 

23,1 iPRINT" ":Y=Y+SALTO 

1710 IF Y>173 THEN FOR N=1 TO 130:LOCATE 23,1 iPRINT “SAIU DA AREA... "iNEXT 

NiLOCATE 23,1 iPRINT “ “:Y=Y-SALTO 

1720 IF A$=”x" OR A$="X" THEN LOCATE 23,1 iPRINT “ "iLOCATE 23,1 ilNPUT 

"NUMERO DE PIXELS: “,SALTO:LOCATE 23,1 iPRINT “ 

1730 PSET (X,Y):PRESET (X.Y)iLOCATE 23,20:PRINT "x="X;" ";"y=”Y 

1740 IF AS=”o” OR A$=”0” THEN X=X-SALTO 

1750 IF AS=”p" OR A$=”P" THEN X=X+SALTO 

1760 IF A$=”q" OR AS="Q” THEN Y=Y-SALTO 

1770 IF A$=”a” OR AS=”A” THEN Y=Y+SALTO 

1780 IF A$="d” OR A$=”D” THEN CHECK=1 :FOR N=1 T0130.LOCATE 23,1 iPRINT “PONTO LIGADO 
“iNEXT NiLOCATE 23,1 iPRINT “ "iRETURN 

1790 IF A$=”j” OR A$="J” THEN LOCATE 23,1 iPRINT “ “iLOCATE 23,1 ilNPUT 

“TEM A CERTEZA (S/N) “;CS:IF CS=”s" OR CS=”S” THEN SYSTEM ELSE LOCATE 23,1 iPRINT “ 

1800 GOTO 1670 

1810 C=X:D=Y:X=X+1 :Y=Y+1 :PSET (X,Y) 

1820 LOCATE 23,1 iPRINT “CIRCULO LIGADO “:AS=INKEY$:IF CHECK=1 THEN LOCATE 
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23,20:PRINT “ ‘“RETURN 

1830 IF A$=”x” OR A$=”X” THEN LOCATE 23,1 :PRINT “ ‘“LOCATE 23,1 :INPUT 

“NUMERO DE PIXELS: “,SALTO:LOCATE 23,1 :PRINT “ 

1840 IF A$=’’o” OR AS="0” THEN X=X-SALTO 
1850 IF A$=”p” OR A$=”P” THEN X=X+SALTO 
1860 IF A$=”q" OR A$=”Q” THEN Y=Y-SALTO 
1870 IF A$="a" OR A$=”A" THEN Y=Y+SALTO 

1880 IFX<0THEN FOR N=1 TO 130:LOCATE23,1 :PRINT“SAIU DA AREA... ":NEXTN:LOCATE 

23,1 :PRINT “ ":X=X+SALTO+1 

1890 IF X>319 THEN FOR N=1 TO 13010CATE 23,1 :PRINT “SAIU DA AREA... “:NEXT 

N: LOCATE 23,1 :PRINT “ ":X=X-SALTO-1 

1900 IFY<0 THEN FOR N=1 T0130:LOCATE 23,1 :PRINT “SAIU DA AREA... “:NEXTN: LOCATE 

23,1 :PRINT “ “:Y=Y+SALTO 

1910 IF Y>173 THEN FOR N=1 TO 130.LOCATE 23,1 :PRINT “SAIU DA AREA... “:NEXT 

N: LOCATE 23,1 :PRINT “ “:Y=Y-SALTO 

1920 PSET (X,Y):PRESET (X,Y):E=C:F=D:LOCATE 23,20:PRINT "x="X;” “;”y=”Y 

1930 IF AS=”c" OR A$=”C” THEN CHECK=1 :RES1=(C-X):RES2=(D-Y):RAIO=SQR 

(RES1 A 2+RES2 A 2):CIRCLE (E,F),(RAIO),COR:FOR N=1 TO 13010CATE 23,1:PRINT “CIRCULO 

FEITO “:NEXT N: LO CATE 23,1 :PRINT “ 

1940 PRESET (C,D) 

1950 IF A$=”j” OR A$=’’J” THEN LOCATE 23.1.PRINT “ ‘“.LOCATE 23,1 :INPUT 

"TEM A CERTEZA (S/N) “;CS:IF C$= ,, s" OR C$="S” THEN SYSTEM ELSE LOCATE 23,1:PRINT “ 

1960 GOTO 1820 

1970 C=X:D=Y:X=X+1 :Y=Y+1 

1980 LOCATE 23,1:PRINT “CONSTRUINDO CAIXA “:AS=INKEYS:IF CHECK=1 THEN RETURN 
1990 IFXcOTHEN FOR N=1 T0130:LOCATE 23.1 :PRINT“SAIU DA AREA... “:NEXTN:LOCATE 

23,1 :PRINT “ “:X=X+SALTO+1 

2000 IF X>319 THEN FOR N=1 TO 13010CATE 23,1:PRINT “SAIU DA AREA... “:NEXT 

N:LOCATE 23,1 :PRINT " ":X=X-SALTO-1 

2010 IF Y<0 THEN FOR N=2 TO 130:LOCATE 23,1 .PRINT "SAIU DA AREA... ":NEXTN:LOCATE 

23,1 :PRINT “ “:Y=Y+SALTO 

2020 IF Y>173 THEN FOR N=1 TO 130:LOCATE 23,1 :PRINT “SAIU DA AREA... “:NEXT 

N:LOCATE 23,1 :PRINT “ “:Y=Y-SALTO 

2030 PSET (X,Y):PRESET (X,Y):LOCATE 23,20:PRINT "x="X;" “;”y=”Y 

2040 IF A$="x" OR A$=’T' THEN LOCATE 23,1 :PRINT " “LOCATE 23,1 :INPUT 

"NUMERO DE PIXELS: ",SALTO:LOCATE 23,1 :PRINT “ 

2050 IF A$=”o" OR A$=”0" THEN X=X-SALTO 
2060 IF A$=’’p” OR A$="P” THEN X=X+SALTO 
2070 IF A$=”q” OR A$=”Q” THEN Y=Y-SALTO 
2080 IF AS="a" OR A$="A” THEN Y=Y+SALTO 

2090 IF A$="b" OR A$=”B” THEN CHECK=1:PSET (C,D):LINE (C,D)-(X,Y),COR,B:FOR N=1 TO 
130:LOCATE 23,1:PRINT"CAIXA CONSTRUÍDA “:NEXTN:LOCATE23.1:PRINT“ 

2100 IF A$="f” OR A$="F" THEN CHECK=1:PSET (C,D):LINE (C,D)-(X,Y),COR.BF:FOR N=1 TO 
130:LOCATE 23,1 :PRINT "CAIXA CONSTRUÍDA “:NEXTN:LOCATE23,1:PRINT“ 

2110 IF A$=”i" OR A$=’T’ THEN CHECK=1:PSET (C,D):LINE (C,D)-(X,Y),0,BF 

2120 IFA$=T OR AS=”J" THEN LOCATE 23,1:PRINT “ ":LOCATE 23.1.INPUT 

"TEM A CERTEZA (S/N) ";C$:IF C$=”s" OR A$= , ’S" THEN SYSTEM ELSE LOCATE 23,1:PRINT “ 

2130 GOTO 1980 

2140 LOCATE 23,1 :INPUT “NOME (max. 8 carct.): “,DES$:LOCATE 23,1 :PRINT " 

2150 IF LEN (DESS)<1 OR LEN (DES$)>8 THEN LOCATE 23,1 :PRINT “ “:GOTO 

2140 

2160 LOCATE 23,1 :PRINT " ":PRESET (X,Y) 


2170 DEF SEG=&HB800 
2180 BSAVE DESS,0,&H4000 

2190 FOR N=1 TO 130:LOCATE23,1:PRINT “DESENHO GRAVADO “:NEXT N:LOCATE 

23,1:PRINT “ 

2200 RETURN 

2210 LOCATE 23,1 :INPUT "NOME (max. 8 carct.): “,DESS 

2220 IF LEN (DESS)<1 OR LEN (DES$)>8 THEN LOCATE 23,1 :PRINT “ “:GOTO 

2210 

2230 LOCATE 23,1:PRINT “PROCURANDO... 

2240 DEF SEG=&HB800 
2250 BLOAD DESS.O 

2260 LOCATE 23,1 :FOR N=1 T0130:LOCATE 23,1 :PRINT “DESENHO PROGRAMADO “:NEXT 
N 

2270 LOCATE 23,1 :PRINT“ 

2280 RETURN 

2290 C=X:D=Y:X=X+1 :Y=Y+1 

2300 LOCATE 23,1:PRINT "PRODUZIR RAIOS”:A$=INKEYS:IF CHECK=1 THEN RETURN 

2310 IF A$=”o” OR A$=”0” THEN X=X-SALTO 

2320 IF AS=”p” OR AS=”P” THEN X=X+SALTO 

2330 IF A$=”q” OR A$=”Q” THEN Y=Y-SALTO 

2340 IF A$=”a” OR AS=”A” THEN Y=Y+SALTO 

2350 IF AS="x” OR A$=”X” THEN LOCATE 23,1 :PRINT “ “-.LOCATE 23,1 :INPUT 

“NUMERO DE PIXELS: “,SALTO:LOCATE 23,1 :PRINT “ 

2360 IFX<0 THEN FOR N=1 TO130:LOCATE23,1:PRINT"SAIU DA AREA... ":NEXTN:LOCATE 
23,1:PRINT" “:X=X+SALTO+1 

2370 IF X>319 THEN FOR N=1 TO 130:LOCATE 23,1 .PRINT “SAIU DA AREA... “:NEXT 

N:LOCATE 23,1 :PRINT “ “:X=X-SALTO-1 

2380 IF Y<0THEN FOR N=1 TO 130:LOCATE23,1 :PRINT “SAIU DA AREA... “:NEXTN:LOCATE 

23,1 :PRINT " ":Y=Y+SALTO 

2390 IF Y>173 THEN FOR N=1 TO 13010CATE 23,1:PRINT “SAIU DA AREA... ":NEXT 

N: LOCATE 23,1 :PRINT " “:Y=Y-SALTO 

2400 PSET (X,Y):PRESET (X,Y):LOCATE 23,20:PRINT "x="X;” “;"y=”Y 

2410 IF AS=”r” OR A$=”R” THEN LINE (C,D)-(X,Y),COR 

2420 IF A$=T OR AS="J" THEN LOCATE 23,1 :PRINT “ “:LOCATE 23,1 :INPUT 

"TEM A CERTEZA (S/N) “;CS:IF C$=”s” OR C$=”S” THEN SYSTEM ELSE LOCATE 23,1 .PRINT " 

2430 IF A$="t" OR A$="T” THEN CHECK=1 
2440 GOTO 2300 

2450 IF AS=”g” OR A$=”G” THEN GOSUB 2140 
2460 COLOR 9,4,4:CLS 

2470 LOCATE 1,1 :PRINT “+”:FOR N=2 TO 7910CATE 1 ,N:PRINT "=":NEXT N:LOCATE 1,80:PRINT 

“+" 

2480 FOR N=2 TO 21:LOCATE N,80:PRINT "l":NEXT NIOCATE 22.80:PRINT "+" 

2490 FOR N=79 TO 2 STEP -110CATE 22,N:PRINT “=”:NEXT NIOCATE 22,1 :PRINT “+”:FOR N=21 

TO 2 STEP -110CATE N.1 :PRINT “l”:NEXT N 

2500 COLOR 13:LOCATE 6,30:PRINT “Escolha uma das opções:” 

2510 COLOR 1210CATE 8,31:PRINT “1-640 x 200 pixels” 

2520 COLOR 1210CATE 9,31:PRINT “2-320 x 200 pixels” 

2530 COLOR 11:LOCATE 13,32:INPUT "Qual a resolução: ",A 
2540 IF A=1 THEN 90 
2550 IF A=2 THEN 1270 

2560 IF NOT (A=1 OR A=2) THEN LOCATE 13,4:PRINT " “:GOTO 

2530 
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O objectivo deste programa é conseguido. De uma forma geral 
conseguiu-se criar uma rotina capaz de correr em qualquer package 
desenvolvido em DBASE. 


Apesar da ideia não ser original (mesmo quanto à incripitação do 
código e do nome), terá bastante interesse para muitos programadores 
de DBASE. 

Todo o desenvolvimento cai constantemente em truques rotineiros 
já ultrapassados por novas funções do DBASE, o que torna a 
programação um pouco pesada. 

E uma forma simples de programar onde não é empregue grande 
técnica de programação, mas com um objectivo conseguido. 


Sendo um habitual leitor da AM, fico preocupado ao verificar que a 
linguagem por vóa maia deaenvolvida, é o BASIC. Eatá claro que é a linguagem 
por onde todoa noa começamoa, e que noa influência baatante a proaaeguir neate 
mundo da informática, no entanto aa suas capacidades em termos ciêntificos são 
bastante reduzidas.Mesmo assim, o que vale é o vosso incêntivo. 

A minha contribuição, são duas pequenas rotinas em DBASE III Plus, que 
permitem a utilização de uma chave de acesso aos programas (em DBASE, claro),e 
que muito dificilmente são descobertas. 


Criação do utilizador: 


aux=space(l) 

@ 6,43 to 17,79 
nom=space(10) 
cod=space(10) 
nom2=space ( 35 ) 

@ 9,44 say "Nome do utilizador ?" 

@ 10,44 get nom 

@ 12,44 say "Codigo de acesso ?" 

@ 13,44 get cod 

@ 15,44 say "Nome complecto do utilizador ?" 

@ 16,44 get nom2 

read 

com=l 

n="“ 

nl=0 

n2="" 

n3="" 

n4=0 


- >0 truque é simples, basta "pegar"' em cada um 

dos caracteres da palavra, convertê-lo para 
ASC,somar-lhe um valor que só nós sabemos, e 
voltá-lo a converter para caracter. 

(neste caso +23 para o nome e +31 para a chave) 


->Base de dados com o nome PASS que tem um ficheiro de 
índice (PASS1), indexado por nome. 


n5="" 
n6="" 
ni=”" 

do while com<=9 
n=substr(nom,com,10) 
nl=asc(n)+23 
n2=chr(nl) 
n3=n3+n2 

ni=sub8tr(cod,com,10) 
n4=asc(ni)+31 
n5=chr(n4) 
n6=n6+n5 
com=com+l 
enddo 
nom=n3 
cod=n6 

use pass index passl 
seek nom 
if .not. eof() 
con=8 

do while con<=17 
@ con,33 say space(49) 
con=con+l 
enddo 

set color to /w 

@10,38 say " NAO PODE ! " 

set color to 

@ 13,38 say "Ja existe(m) utilizador(es) com esse nome 
@ 14,38 say "Consulte dados de utilizadores." 

@ 17,38 say "Prima qualquer tecla. " get aux 

read 

con=8 

do while con<=17 
@ con,33 say space(49) 
con=con+l 
enddo 
else 

go bottom 
append blank 

replace pass->nome with n3 
replace pass->codig with n6 
replace pass->nomec with nom2 
con=8 

do while con<=17 
@ con,33 say space(49) 
con=con+l 


—>Colocação na base de dados do utilizador 
criado. 


enddo 

set color to /w 
@ 15,49 say "CRIACAO ACEITE." 
set color to 
con= 1 

do while conolOO 
con=con+l 
enddo 

@ 15,49 say space(20) 
endif 
return 


Utilização da chave: 

co=0 

c-0 

ok-0 

c=0 

@ 11, 29 SAY Nome do utilizador:" 

@14, 29 SAY "Codigo de acesso:" 

@ 10, 27 T0 17, 49 D0UBLE 
use pass index passl 
aux=space( 1) 
do while c<>3 
nom=space(10) 
cod=space(10) 

@ 15,29 say space(lO) 

@ 12,29 get nom 

read 

co=0 

cod="“ 

con=0 

@ 15,28 say " 

-do while coOl3 .and. con<10 
co=0 

do while co=0 
co=inkey( ) 
enddo 

cod—cod+chr( co) 
con=con+l 

@ 15,29+con say " " 
enddo 

cod=substr ( cod,1 , con-1) 

s=10-con 

cod=cod+space(s ) 

c=c+l 

com=l 

n=“" 

nl=0 

n2="" 

n3="" 

n4=0 

n5="" 

n6="" 

ni="" 

do while com<=9 

n=substr(nom,com, 10) ->0 processo é idêntico, só que aqui serve apenas 

nl=asc(n)+23 de verificação das chaves. 

n2=chr(nl) 

n3=n3+n2 

ni=substr(cod,com, 10) 
n4=asc(ni)+31 4 
n5=chr(n4) 
n6-n6+n5 
com-com+1 
enddo 
con= 1 
aeek n3 
if .not. eof() 
if pass->codigon6 
@ 21,16 say space(55) 

@ 20,32 say "Acesso negado." 

@ 21,23 say "Por favor verifique o seu codigo." —>Nome do utilizador é 

do while conolOO aceite, a chave é que 

con=con+l não. 

enddo 
else 
c=3 

ok=l 

endif 

else 

@ 21,16 say space(55) 

@ 20,32 say "Acesso negado." —>Nome do utilizador e chave, não são aceites 
@ 21,16 say "Voce nao poderá ser um utilizador da aplicacao." 
do while conolOO 
con=con+l 
-enddo 
endif 
— enddo 

if .not. (c=3 .and. ok=0) 

@ 20,32 say space(20) 

@ 21,16 say space(55) 

@20,30 say "ACESSO AUTORIZADO" 

@ 22,21 say nomee 
con=l 

do while con<>450 
con=con+l 
enddo 
do f 
endif 
clear 
return 
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Outras considerações: 

- Base de dados tem como registo os seguintes campos: 

NOME - caracter - 10 
CODIG - caracter - 10 

NOMEC - caracter - 35; a criaçào é feita com CRKATE. 

- Ficheiro de índices, indexado por NOME: 

use pass 

index on nome to passl; sáo as instruções que permitem fazer a indexação. 

Experimentem fazer TYPE da base de dados (TYPE PASS.DBF), e verifiquem como 
ficaram o nome do utilizador e a chave de acesso; qualquer coisa parecida com 
isto (é só um exemplo): 

géÇàzÇçxâ ôÇ^ôâae??? CARLOS JORGE M0UITNH0 DE PINA NEVES. 

A vocês, equipa da AM. 

Como sugestão, ponham em prática (de novo) o concurso "0 melhor programa", pois 
desenvolvi programas comerciais, que sáo bastante grandes para esta secção. 

Como crítica ao vosso trabalho, BOM,MUITO BOM,EXCELENTE; NÀO PAREM. 


Carlos Jorge Moutinho de Pina Neves 
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PROGRAMA: FICHEIRO DE CLIENTES 

É feito um grande exagero nas cores empregues no programa. Além 
de serem demasiadas, dão um aspecto muito negativo ao programa. 
A nível geral a apresentação é má. 


O objectivo a que se propõe é conseguido. No entanto todo o 
conteúdo é muito pobre e mal explorado, é necessário seguir uma linha 
rígida para correr o programa sem problemas. No caso da introdução 
de clientes, o programa entra em loop quando tentamos, depois de 
inserir o nome do cliente, voltar à posição anterior. 

Se não fizermos o Boot da máquina pela diskette, a partir do menu 
principal, o programa pendura sendo necessário um Reset a frio para 
continuarmos. 

Em termos de codificação o programa é satisfatório. É um bom 
conhecedor do GW-BASIC, no entanto em termos de funcionalidade 
falha sistematicamente. Em princípio não há erros de sintaxe. 



IMSTRU 

PC 2000 

E R I E 





■|rrr=TTli 



o 

PC 2086 


. .ic^sicssijstiiãlv 


& 


PC 2386 



QUEREMOS QUE A INFORMÁTICA 
CHEGUE A TODOS 
PEÇA-NOS UMA VISITA 

Q)melo 

V -^INFORMÁTICA 

JOSÉ DE MELO & SILVA, LDA. 

ESCRITÓRIO: Rua Bernardim Ribeiro.15—1100 LISBOA 
LOJAMELO: Rua Gonçalves CresD0.18-C — 1100 LISBOA 
LOJA ZODÍACO: Rua Conde Redondo. 5 - Loja C — 1100 LISBOA 
Telefones:54 99 04 - 52 56 69 — Hor: 9.30 - 19.30h. - 2» a 6* 
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COMPRO/VENDO/TROCO 


COMPRO 


] 

Dl 


Spectrum +3 c/ ou s/ hard/soft- 
ware. Contactar depois das 19H 
-039-33921 

Monitor p/PC 1640, monocromá¬ 
tico por 20 cts. ou policromático 
por 40 cts. — Eng. Mota, Tel. 
(horas exp.) 034-24091 (Aveiro). 

Programa capaz de criar ficheiros 
tipo catálogo, para CPC 464. 
Contactar Carlos Morais, Av. 25 
de Abril, n s 94 - 2520 Peniche. 

Amstrad 1512 ou 1640 em 2. máo, 
preço económico. Contactar, 
Ricardo J. Cardoso, Est. Viscon¬ 
de Cacongoris de Nora, 5 - 9000 
Funchal Madeira. 

Amstrad 8512. Manuel Amorim, 
R. 13 de Fevereiro, 7 - 4915 V. 
Praia Âncora. 

Compro software PC 3.5/5. 25 
jogos-profissionais-manuais, etc. 
Envia lista com preços. M. Freitas 
— Portela, 885 D, 2685 Sacavém 

Impressora térmica TS 2040, 
contactar Filipe Silva, Tel. 043- 

23189, durante as horas normais 
de expediente. 

Impressora 2040 Timex, Barroso 
-Tel. 9810777, depois20h. 

Soft e Modem p/RTTY e CW em 
PC compactível e também em 
Timex 2048. Resposta c/preço 
para C. Soares, Rua da Alegria. 
785 AP21 - 4000 Porto. 

Feliz possuidor de turbo Basic 1.0 
que possua manual/livros, 
contactar Joào, 921446 Coimbra. 


PROGRAMA 


GESTÃO 

PARA 

ADVOGADOS 


contacte-nos 

PR0M0C0PIA 


SOCIEDADE DE EQUIPAMENTOS E SERVIÇOS, LDA. 

Rua Rodrigo Rebelo, 18 — Telefone 2 47 99 
Apartado 160 6000 CASTELO BRANCO 


VENDO 


Timex 2048 + gravador Sanyo. 
17.500$00 + 4.000S00. Oferta de 
50 jogos. Carlos Cartaxo, Rua de 
Évora, 49 — 7200 Reguengos de 
Monsaraz. 


ZX Spectrum+ c/ manual inglês 
M.Basic Portug maestro, grava¬ 
dor, base e capa, interface p/joys- 
tic, jogos 20 cts. Azeitáo, Tel. 
2080507. 


Vendo ou roco comp. Philips 8020 
MSX com cabos, cassetes de 


jogos e software, contactar tel. 
942558 (052) Cândido Costa. 


PC 1512 DD, mais de 1000 c. em 
software, manuais, 80 disks, 
pouco uso. Preço: 200 cts. Tel. 
898719, 20-21 horas, Paulo Brito. 


ZX 48K + TV p/b + software preço 
30 cts.,orgão Casio vL-1 Tone 30 
cts., ficheiro metálico c/ capaci¬ 
dade 20 000 fichas 30 cts. Tel. 
898719. 


Programas e jogos para PC’s. 
Pedir lista e enviar selo para res¬ 
posta para: Clube IBM, rua Santa 
Catarina, 1279, 3 e - 4000 Porto. 


Casio — calculadora programá¬ 
vel 850P científica 26 cts.. Casio 
— 702P + impressora + interface 
27 cts. Tel. 307554 noite V. N. 
Gaia. 


Spectrum 48K FDD3000, monitor 
neptuno verde, teclado prof. pro- 
file, ofereço soft. disk 3" Basic e 
CPM. Nogueira R. A. Delg., 55-3 F 
Faro 


Spectrum+3 128 K + disques + 
cassetes + joystik + curso Basic 
tudo 60 cts. Rua D. Luís de Noro¬ 


nha, 17 r/c Dt 5 , contactar de 
manha Paulo. 


Spectrum+3 por 48 cts., monitor 
mono Philips por 17 cts., gravador 
computone por 3 cts., impressora 
GP50 por 18 contos. Contactar 
Eurico, Tel. (043) 52968. 


Comodore Cl 28 + drive + joystik 
+ 40 disquetes c/jogos — Utilitá¬ 
rios e Profissionais por 65 cts. Tel. 
4426170, depois das 20 horas. 


Spectrum +2 com 130 cassetes + 
um joystick Turbo II por 40 cts. 
para mais promenores contactar 
Vitor Gama, Tel. 4946757 — 
Amadora. 


Faço programas por encomenda 
em Basic, Cobol, Pascal e DBase 
III Plus. João Luís Nunes/António 
Luís Felix. Tel. 9832756, Loures. 


Vendo computador timex 2048 
novo + 200 jogos + gravador por 
40 mil escudos. Escreva para 
Nuno Jardim, Portela Lt. 37-3 e Dt e 
26855. 


Software diverso para PC/MS- 
DOS e para PCW peça lista para 
João Carlos, Pr. Bento Jesus 
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Vale mais 





que dinheiro” 



Os nossos clientes 
merecem-nos 
todo o crédito. 
Independentemente 
do dinheiro 
que trazem 
no bolso. 

Assim, 
oferecemos 
as melhores 
condições de crédito 
com amplas facilidades 
de pagamento — formas 
especiais de 

comercialização de onde 
se destacam o novo 
CREDI-SOCARTEL 
e o já conhecido 
CREDI-AMSTRAD. 

Desta forma, quando 
precisar de uma boa 
aparelhagem de TV, 
Vídeo e Hi-Fi, 
de computadores, 



acessórios e outros 
artigos de electrónica 
venha ter connosco. 

Pode ter a certeza 
de encontrar 
as marcas 
de qualidade, a 
assistência pós-venda 
garantida 
e um conselho 
profissionalizado na 
medida exacta das 
suas necessidades. 

Tudo isto, 
englobado num 
novo conceito de 
lojas espalhadas 
pelo País, que 
aliam à variedade 
seleccionada o serviço 
impecável. 

.Sabemos esclarecê-lo 
na compra do útil. 
E não do fútil. 



LISBOA 

PORTO 

PORTO 

GITMARÀES 

CHAVES 

COIMBRA 

OLH.ÀO 

PORTIMÃO 



Av. Engf Duarte Pacheco, 17-19 
1000 LISBOA 
Rua Santa Catarina, 716 
4000 PORTO 

Av. da Boavista. 2881. Loja 3 
4000 PORTO 

R. Manuel Saraiva Brandão. 241 r c 

4807 GUIMARÃES 

Av. 5 de Outubro 

Edifício Europa 

5400 CHAVES 

Av. Calouste Gulbenkian 

Centro Comercial Primavera 

Loja 37 

3000 COIMBRA 
R. João Rosa, 6 
8700 OLHÃO 

Bairro do Pontal, Bloco 2A.c \ 
8500 PORTIMÃO 


o 

?■ 

o>: 




SOCAUTKI. 

A JUSTA MEDIDA DA ELECTRÓNICA 





































Caraça, 1 r/c Esq. 1675 Lisboa. 


Amstrad PPC512DD Paulo Oli¬ 
veira, Praceta Infante D. Henri¬ 
que, bloco B 4-D 3000 Coimbra. 


Vendo Afari ST 520 K novo ganho 
num concurso da TV + 3 progra¬ 
mas e respectivos manuais por 
68 cts. Tel 22852 (053) 4700 
Braga. 


Casio FX730P. 16K RAM interfa¬ 
ce FA5, manual ainda com garan¬ 
tia, em bom estado. 35 contos, 
Tel. 2951669 (Lisboa) após 20 
horas. 


ZX 48K, interface 1 + micro drive, 
2 gravadores, Joystick c/ interfa¬ 
ce, (1 cartridge + 60 jogos + livros 
oferta) tudo 50 cts. 075/46419. 


Amstrad PC 16400 DD c/ placa 
Hercules c/ novo c/ garantia Triu- 
dus 165 cts. Contactar tel. 703524 
a partir 19 horas António Rodri¬ 
gues. 


Amstrad 1640 monocromático + t 
drive + pouco uso + facilito progra¬ 
mas. Tel. 543356 tarde e noite, 
preço a combinar. 


Software compatível (cópias) ou 
troco por Chess 3D, voice Synt., 
etc. Paulo Brito, Av. EUA n e 81- 
10 S D 1700 Lisboa ou Tel. 898719. 


Vendo Philips VG-8020 MSX 
como novo e mais dez jogos e 
manuais, contactar Sérgio Tel. 
4313831. 


Disquetes DS/DD 5 1/4 a partir 
150$00 cada + portes há também 
3 1/2 escreva, desc. especial. 
Ferreira, B. da Lapa 351 Dt. 1100 
Lisboa. 


Vendo Commodore Cl 28 + disk 
drive 1571 + impressora MPS801 
formato A4 + 45 disquetes c/prog. 
utilit e jogos tudo 85 C. Tel. 053/ 
812022. 


Computdor MSX Sony Hit Bit + 
gravador + data cartridge + jogos 
+ manuais estado novo, contactar 
Tei. 22086 Joáo Ferreira Aveiro. 


MSX-DOS estado novo por 60 
cts. 064-47178. 


Spectrum 2068 com cartridge 
emuladora para ZX + manual + 40 
jogos tudo impecável por 24 cts. 
Tel. (02)311675. 


Pentax ME Super equipada com 
tripé 20OM motor e Flash. Estado 
óptimo. Frederico Mendes, Tel. 
9261583 a noite. 


Vendo jogos para PC’s CPC, 
Spectrum, MSX, muitos e bara¬ 
tos. Inforams, Av. Eiisyo de Mou¬ 
ra, 397-2 e D, 3000 Coimbra Tel. 
039-716949. 


spectrum + 128 K com monitor 
Neptun 156 mais gravador com 
35 cassetes com 58 jogos por 47 
cts. Tel. 52467 Albufeira. 


Impressora Seikosha GP 50S em 
bom estado com oferta de 1 rolo e 
exemplos de desenhos por 18 
cts. Tel. 9832282 Rede do Porto. 


Software disq. 3 1/2 ou 5 1/4 títu¬ 
los variados (LL, Police Quest 2, 
King's Quest 3, Test Drive...) 
Vicente Moreira Rato tel. 657799. 


Vendo ZX Spectrum 48K, com 
televisor, programas técnicos e 
manuais, revistas e jogos. Con- 
tactarTel. 9218436. 


Spectrum 48 K + placa de arrefe¬ 
cimentos + manual tudo em bom 
estado + oferta de alguns joos, 


para efeito é favor contactar Tel. 
4372534 ou para Av. Luís de 
Camões, n.6-4.Esq. 2745 Queluz 
Ocidental. 


Executa-se programas p/ PME’s 
(relatórios, bases de dados, etc.). 
Contactar Davíd Miranda, Rua de 
Macau, n.141-4435 Rio Tinto. 


Dou explicações de MS Cobol c/ 
prática em PC + Lógica progra¬ 
mação e MS-DOS 3.2/3.3 contac¬ 
te Paulo Santos, Tel. 4106315 (9- 
17). 


Executa-se progrmas com rapi¬ 
dez, em DBase 3+, Lotus, Pascal, 
em CE em Worstar. Contactar: 
292267-7825288 Porto. 


Amstrad CPC 6128 com Softwae 
técnico, folha de cálculo, trata¬ 
mento de texto e jogos — Tel. (02) 
685295 Henrique, Porto. 


Executo programas em GWBasi- 
c, MS-Cobol e em Lotus 123. 
Contacte Anselmo Couto, R. Ida- 
nha-Ponte de Anta-4500 Espinho 
Tel. 721003. 


PPC 640 DD c/modem e ofereço 
Cx disquetes e cabo p/ ligação a 
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COMPUTADORES 



1640 

2086 

2286 

2386 


OUTRAS MARCAS 


HYUNDAI 

AATARI 

c s Schneider 


PROGRAMAS 

CONTABILIDADE 
CONTAS CORRENTES 
FACTURAÇÃO/STOCKS 
EM 

- MS DOS 

- PROLOGUE 

- XENIX 

- UNIX 


AV. GOMES FERREIRA, 103-105 
TELEF.: 7155924 - 1500 LISBOA 


RUA D0 ALP0RTEL, 208 
TELEFS.: 27913-29119-813525 
FAX: 813553 
8000 - FARO 


RUA M0UZINH0 DE ALBUQUERQUE, 89 
TELEFS.: 10821 82890/92 
FAX: 1082] 82892 
8500 - PORTIMÃO 

Equipamento de Escritório, Lda. 


Concessionário 


Pitney Bowes 

telecopiadores 

COMPUTADORES 


IIMFSRC3AL 


REGISTADORAS * MÁQUINAS DE ESCREVER 
COMPUTADORES * CALCULADORAS 
Assistência técnica das marcas representadas 
ARTIGOS DE PAPELARIA * MÓVEIS DE ESCRITÓRIO 


MINOLTA 

FOTOCOPIADORES 

AMANO 

RELÓGIOS 

pnKim 
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COMPRO/VENDO/TROCO 


outro PC. Tem garantia. Mário 
Cunha, Outeiro Calendário 4760 
Famalicáo. 


Amstrad PC 1512 HD20 
policromático, preço 260 contos. 
Contactar Anabela Tereso, rua 
dos Congregados, n.8 - 3 S Esq. 
4700 Braga. 


Vendo ou troco softwre para 
Amiga 500 e C64. Escrevam para 
Rua Humberto Delgado 82, 6 Q 
Esq. 3000 Coimbra. Tel. 723876. 


Todo o tipo de sottware para PC. 
Ségio Henriques, Tel. 7594200 
1700 Lisboa. 


Xerox At Compact c/ 20 Mb de 
disco, disqute 3 1/2, mouse, 
teclado Port. e impressora Star 
LC10 e software contabilidade. 
Tel. 562744 após 21 horas. 


Softwae Atari-St e PC- 
compatível. Envio lista pelo 
correio. Club Infor-System, 
Apartado 125/89 2670 Loures. 


Spectrum+, 130 jogos, gravador, 
interface tuo impecável por 35 cts. 
Tel 9813503 Odivelas. 


Bulltin Board... Corning Soon! 
Name: Super Net, Sysop: King C. 
É português! V21/V23 deixem 
msg’s n/secção. 


Monitor Amstrad mono por 
policromático. Dou mais 20 cts. 
Rui Ferreira, Apartado 27, 2640 
Mafra. 


Ideias p/formar grupo de 
utilizadores Pc. Escrevam p/ 
Pedro Mota, Rua Luís de 
Camões, 633 - 4420 Gondomar. 


Soft p/ PC - disk 5.25 técnico - 
favor enviar lista para: C. Soares, 
rua da Alegria, 785, Ap.21 - 4000 
Porto. 


Manuais e programas diversos 
por manual do PC-Story Board-2 
ou fotocópias. Infor-System, 
Apartado 125/89 - 2670 Loures. 


Troco Amstrad 1640, 2 drives 
monocromático + quantia em 
dinheiro a combinar por 1512 com 
2 drives policromático CGA/EGA, 
496723 Porto. 


Programas em quantidade e 
qualidade. Gravo em 5"25 ou 3"5 


Amstrad PCP 664 com disquetes 
3" e monitor monocromático, tudo 
35 cts. Tel. 7591543. a partir das 
21H7595564. 


Amstrad PC 1512 DD-MM e 
software. Tel. 61492 Oliveira de 
Azemeis. 


Timex Computer 2048, gravador 
Grundig, jogos e programas, tudo 
em 6 prestações s/entradas 
CEAPA, Pr. Município, 71-3 E- 
Águeda. 


FDD3000 + Spectrum 48K com 
teclado profissional profile pela 
melhor oferta. João Nogueira, 
Rua H. Delgado, 55-3 Q F 8000 
Faro Tel. 20671. 


Sinclair QL+QL printer + monitor 
Philips +16 cartridges + manuais 
por 65 cts. António Russo 043/ 
26525. 


Software em disquete para 
Amstrad CPC, mais de 300 
programas. Envia-se lista grátis. 
Rua Júlio Dinis, n e 91 -1 s Esq. 
4000 Porto 


Executo trabalhos dactilógrafos e 
em computador. Contactar Tel. 

tenho centenas de programas, 
contactar: Fersoft, R. S. 
Margarida, 85 Braga. 


Sinclair QL + Impressora A4 + 
monitor, por Amiga 500 ou Atari 
520 St ou vendo por 80 cts. Trata 
António Russo, Tel. 043-26525 
(exp.). 



2762246 Margarida Abreu. 


Amadeu Pinto da Silva, Fee 
Lancer, Informação-Publicidade. 
R.José Rodrigues Jr. 401 3 5 E.F. 
4470 Maia. Tei. 9488303. 


TROCO 


Troco todo o tipo de software p/ 
PCs. Troco lista. Jorge Carvalho, 
Calçada da Quintinha, n 2 1-B - 
1000 Lisboa. 


Troco variado tipo de software 
para PC’s contacte Pedro 
Rodrigues, Av. Dr. Carlos Pinto 
Ferreira, 130 Vila do Conde. Tel. 
02-578347. 


Troco software para PCs 
utilitários e jogos no formato 51 /4 
e 3 1/2. Contactar Ulisses 
Fonseca, Tel. 659761, qualquer 
hora. 


Troco todo o tipo de sofware p/ 
PCs. Troco lista. José Aives S. 
Damas. Atouguia da Baleia, 2520 
Peniche. Tel. 062175285. 


Jogos CPC tenho novidades para 
troca, contactar Ricardo Santos, 


Lote 17, Cruz D'Areia, 2400 
Leiria. Tel. 26644, dou respostaa 
todos. 


Inforangelo PC software, troca 
software P/ PCs mando lista 
Inforangelo. Ap. 117, 3080 
Figueira da Foz. 


Todo o tipo de software para PCs. 
Envia lista. Carlos Cartaxo, Rua 
de Évora, 40 - 7200 Reguengos 
de Mosaraz. Tel. 066-52723. 


Monitor Amstrad PC-CD em bom 
estado por EGA também em bom 
estado. Contactar Rui Vasco, 
depois das 21 horas. Tel. 01- 
76476701. 


Software PC 1512 todo o género, 
jogos, BDados, contabilidades, 
proc. texto, F. cálculo, etc. 
António Maldonado, Tel. 865527, 
todo o dia. 


Troco todo o software para PC 
1512, António Augusto, rua do 
Campo, 26 - St. Cruz do Bispo 
4500 Matosinhos. 


Centenas de programas de todo o 
tipo troco/vendo/compro, envie 
lista. Contactar R. S. Mararida, 85 
- 4700 Braga. Fernando Costa. 


CENTRO DE ESTUDOS 



VERÃO 


3 SEMANAS 



INICIAÇÃO À INFORMÁTICA • BASIC • PASCAL 
MS DOS • PC FOUR • DISPLAY WRITE 4 • LOTUS 123 
D BASE III PLUS • UTILIZAÇÃO DE PCS. 

JULHO INÍCIO DIA 10 

AGOSTO 

INÍCIO DIA 31/JULHO 

SETEMBRO 

INÍCIO DIA 28/AGOSTO 

HORÁRIOS 

2. a A 5. a 

9H. ÀS 12H. OU 

14H. ÀS 17H. OU 17H. ÀS 20H. 



IPFEL • LISBOA: RUA EDITH CAVELL, 8 IPFEL • PORTO: RUA BARÃO DE S. C0SME, 166-2.° ESQ. 

(Metro de Arroios) 1900 LISBOA (Transversal Av.* Rodrigues de Freitas) 4000 PORTO 

TELEFONE: 8148864/5 TELEFONES: 567938/566063 
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ATÉ DE UMA CABINA 

PODE ENVIAR E RECEBER FAX 


O NISSEI COURIER 
É O FAX MAIS PE¬ 
QUENO, MAIS LEVE 
E MAIS ECONÓMICO. 

E COMO É PORTÁTIL 
VAI PARA TODO O 
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DISTRIBUÍDO POR: 


COM BATERIAS: 188.900$00 
SEM BATERIAS: 174.900$00 

(IVA NÃO INCLUÍDO) 



f I SOCAKTKI. 


TEL, PORTO: 02-9371840 
LISBOA: 01-658600 




















Ligue a sua empresa 
a uma ideia rentável 


Tal como uma ficha tripla, o MULTIPOSTO 
AMSTRAD é factor de multiplicação. 
Partilhando a informação de um único 
programa (até 4 utilizadores), 
multiplica-se a sua eficácia 
aumentando a rentabilidade. 

O MULTIPOSTO AMSTRAD 
é a resposta informática 
certa para pequenas e médias 
empresas em expansão. 


Não só pelas características do sistema 
MULTIPOSTO, mas também pelas vantagens 
AMSTRAD: alta tecnologia, fácil 
utilização, baixo preço e condições 
especiais de pagamento. 

Embora um pouco mais caro 
que uma ficha tripla, o 
AMSTRAD MULTIPOSTO 
custa muito menos 
do que se espera. 


































































